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- Die besten 
Anwender- 
Programme a 


Die schönsten 
Spiele 


Hilfreiche 
Utilities 


Jetzt gibt es 


Deutschlands erste 
Commodore-Zeitschrift 
mit Programm-Diskette 


für Ihren 64er und 128er‘ 
COMMODORE 


Bis zu 180 kB Programme 
ohne Abtippen! 


COMMODORE DISC 


An guten Kiosken und 
im Bahnhofs-Buchhandel 


COMMODORE DISC 


Der C128 nimmt eine Aus- 
nahmestellung unter den 
Acht-Bit-Computern ein. 
Mit sehr viel Vorschuß- 
lorbeeren startete er 

1985 und wurde von 
COMMODORE als Nach- 
 folger des C64 präsentiert. 
Ausgerüstet mit drei Be- 
triebssystemen sollte er 
auch im professionellen 
Bereich den damals noch 
lückenhaften Markt fül- 
len. Dabei wurden die 
C64-Umsteiger nicht ver- 
gessen. Ist doch der 64er- 
Modus ein fester Bestand- 
teil des C128. Mit dem 
BASIC V7.0 im 128er- 
Modus wurde eine erwei- 
terte und verbesserte 
Sprache realisiert, die dem 
Anwender erlaubte, beson- 
ders im Grafikbereich, 
professionelle Programme 
zu erstellen. 

Last but not least wäre 
noch das dritte Betriebs- 
system CP/M zu nennen. 
‚Das vor drei Jahren noch 


zum Standard gehörende 
Betriebssystem sollte dem 
C128 den Einstieg in den 


professionellen Sektor er- 
möglichen. Mittlerweile 
wurde dieser Standard 


. von den MS-DOS-Rech- 


nern verdrängt. Auch 
COMMODORE stellte 
sich sehr schnell auf die- 
sen Standard um und 
brachte mit der PC-Reihe 
MS-DOS-Rechner auf 
den Markt. Somit wurde 
der C128 immer mehr in 
die Rolle eines Außensei- 
ters gedrängt. 


Da sehr viele Software- 


und Hardwarefirmen nur 
für den C64 produzieren 


und den 128er-Modus 


links liegen lassen, sind 


mehr denn je die Program- 
. mier-Freaks und Hard- 


warebastler gefragt. Gibt 
es doch viele, die mit dem 
Angebot nicht zufrieden 
sind und daher allein im 
stillen Kämmerlein ihre 
eigenen Programme und 
Erweiterungen ersinnen. 
Für sie und für Sie daher 
unser Software-Jahrbuch. 


Besonderen Augenmerk 


legten wir auf eine ab- 
wechslungsreiche Mi- 
schung. So finden Sie aus 


jeder Sparte des Com- 


puterns Beiträge und 
Listings. Wir führen Sie 
in die Welt der Grafik ein 
und geben Ihnen eine 
BASIC-Erweiterung in 


die Hand, in der Sie eini- 


ge neue und nützliche 
Befehle finden, wie zum 
Beispiel MERGE und 
FIND. Die Musiker un- 
ter den 128er-Usern 
kommen auch nicht zu 
kurz. Mit dem Pro- 
gramm Musik-Genie wer- 
den sie schnell zum 
Komponisten. Eine nahe- 
zu professionelle Text- 
verarbeitung im 60-Zei- 
chen-Modus ist ebenfalls 
enthalten. 

Leider nicht sehr verbrei:- 


tet ist das Arbeiten un- 


ter CP/M. Was ja auch 
gar nicht so einfach ist, 
wenn Sie nur die Betriebs- 


.  system-Diskette CP/M. 3.0 
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besitzen. Um eine Datei, 
ein File zu erstellen, brau- 
chen Sie unbedingt ein 
Zusatzprogramm, wie es 
beispielsweise BASIC für 
das „normale’’ Betriebs- 
system des C128 ist. Das 
könnte ohne weiteres 
Turbo-Pascal, eine rasante 
Abwandlung dieser be- 
kannten Programmierspra- 
che, sein. 
Mehr über das dritte Be- 
triebssystem CP/M finden 
Sie auf den entsprechen- 
den Seiten in diesem Heft. 
Ebenso sind wir dem 
Wunsch vieler Leser nach- 
gekommen, eine Einfüh- 
rung in die Datenfern- 
übertragung zu bringen. 
Im kleinen Dfü-Lexikon 
können Sie alle wichtigen 
Begriffe und deren Er- 
klärungen nachlesen. Für 
alle Spieler halten wir 
die Programme Börsen- 
spiel, Puker und Oilcom- 
pany bereit. Abgerundet 
wird das Jahrbuch mit 
Tips und Tricks sowie 
nützliche Peeks und 
Pokes. _ 
Einige Hinweise noch 
zum Abtippen unserer 
Listings: Alle BASIC- 
Listings geben Sie bitte 
mit unserem Checksum- 
mer ein. Für die Maschi: 
nensprache-Listings ver- 
wenden Sie bitte den 
Checkmon. Alle Listings 
sind mit einer Check- 
summe versehen. Die in 
spitzen Klammern stehen- 
de Checksumme bitte 
nicht mit abtippen! Sie 
dient lediglich der Über- 
prüfung, ob eine be- 
stimmte Buchstabenfolge 
mit der auf dem Bild- 
schirm angezeigten über- 
einstimmt. 
Wem das Abtippen der 
Listings zu mühselig ist, 
der kann bequem und pro- 
blemlos unseren Disket- 
tenservice in Anspruch 
nehmen. Dazu beachten 
Sie bitte die Hinweise 
und den Bestell- 
aufSeite 64. 
Ihr 
Andreas Greil 
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STARPAINTER 128 
Die C64-Besitzer 
konnten schon immer 


aufeine Anzahlvon 


Grafiktools zugreifen. 
Eines der besten gibt 
es jetzt auch für den 


6128. Erstes pro- 


fessionelles Mal- und 
Zeichenprogramm für 


‚den „großen Bruder” 


Seite 15 


TIPS & TRICKS 


GRAFIK IN DER 
ANDEREN 
DIMENSION 
Der Grafikbooster 
für den C128 stellt 
die Grafikmöglich- 
keiten eines AMIGA 
oder ATARI-STin 
den Schatten 
| | Seite 6 


DEM 128ER UNTERS » 
HEMD GESCHAUT — 
MASCHINEN- 


ROUTINEN IM 128ER 


Warum das Rad zwei- 

mal erfinden? Nutzen 

Sie als Programmierer 

die vielfältigen Routi- 

nen, die das Betriebs- 

ren bereitstellt 2 
Seite 8 


DAS DRITTE 
BETRIEBSSYSTEM 
Lernen Sie dasso 
oft vernachlässigte 


. dritte Betriebssystem 


CP/M PLUS kennen 
Seite 17 


BASIC V7.5 ° 
Nichts ist so gut, daß 


es nicht noch ver- 


bessert werden 

könnte. Das ‚‚normale‘' 
BASIC 7.0 war dem 
Autor zu „mickrig’'. 
Nun haben Sie 25 
neue Befehle für den 


4 C128 zur Verfügung 


‚Seite ‚38 


DFÜ- Lexikon 


C128 — ROM IM 
ÜBERBLICK 
Für Assemblerpro- 


_ grammierer sehr sehr 


interessant: Die | 
wichtigsten Adressen 
und Speicherstellen 
des ROM im C128 


Seite 102 


TEDMON - DER 
MASCHINENSPRACHE- 
MONITOR DES C128 
Ein Bericht für alle, 


die bisher Berührungs- 


ängste hatten, mit 
dieser im Betriebs- 
system integrierten 
„Eingabehilfe” für 
Maschinenprogramme 
zu arbeiten | 

Seite 104 


SERVICE u 


MIT DER BUSCH- 


TROMMEL 


BEGANN ES 


Die Kommunikation 


mit Mailboxen ist der 
Wunsch vieler Anwen- 
der. Mit unserer Ein- 
führung in die große 


. Welt der Datenfern- 
übertragung geben wir 


Ihnen die benötigte 
Hilfe 
Der Seite . 21 


VON ABISZ 


Für alle, denen das 


Fachchinesisch der 
Datenfernübertragung 
böhmische Dörfer 
sind, das kleine 

| Seite 25 
BASIC TOKEN 

Was Sie wissen sollten, 
um Ihren 128 besser 
programmieren zu 


können 
Seite 28 
_ BESTELL-COUPON 


Unser Disketten- 
Service für alle, denen 
es zu mühsam ist, die 


 abgedruckten Listings 


abzutippen 


Seite 64 


CHECKMON 


Unsere Eingabehilfe 
für alle abgedruckten 
Maschinensprache- 
Listings | 

Seite 108 


TIPS, TRICKS, PEE KS- 
UND POKES 
Programmieren Sie 
selbst? 

Dann wird Sie sicher- 
lich unsere nützlichen 


Adressen und Hin- 


weise für Ihren 
Computer inter- 
‚essieren 


Seite 30 | 


C6A GRAFIK _ 

AUF DEM C128 

So überlisten Sie 

den 128: Er kann 

nämlich durchaus auch 

6Aer-Grafiken im 

128er-Modus nutzen. 

Wie, das sagt Ihnen 

unser Artikel — selbst- 

verständlich mit ent- 

sprechenden Utilities 
Seite 109 


 FRACTALS 
‘- Mathematische Grafik 


auf dem Monitor aber 


“ quälend langsam. 
Unser Bericht sagt 
‚Ihnen, wie Ihr 128 


doppelt so schnell 
wird ee, 
Seite 111 


CHECKSUMMER 


Tippfehler in BASIC- 


Listings haben keine 
Chance mehr | 
Seite 130 


# 


LISTINGS 
HI-LOW PRINT 
Sie kennen es: Da 
haben Sie eine wun- 
derhübsche Grafik er- 
stellt — zum Beispiel 
mit einem unserer 
- Grafik-Programme — 


- und wollen sie auch 


ausdrucken. Abgesehen 
davon, daß Sie dazu in 
BASIC erst einmal ein 

Programm schreiben 


müssen, das auch noch 


| ewig dauert. Unser klei- 
nes Maschinensprache- 
| Utility scheint das. nahe- 


- zu blitzartig. Probieren 
Sie es doch aus 


| VDC- BASIC 
Es ist erstaunlich, was 


- der C128 im 80-Zei- 


-  chen-Modus mit dieser 
BASIC-Erweiterung 
alles kann, vor allem 
im Grafik-Modus. Er- 
stellen Sie eigene Grafi- 
: ken in einer Auflösung 
von 640 x 200 Bild- 
punkten a 
| Seite 34 


Haben Sie 
Fragen zu | 
Idiesen Listings ?| | 
64/128 Special 

Hotline 

Jeden Mittwoch 
| ..15-19°% j 
Tel. 0891289013] 


Seite 32 


PC-GRAFIK 
Balken, Torten- und 
Kurvengrafik für den 


40-Zeichen-Bildschirm. 


Statistikbilder können 

zum Wiederladen 

gespeichert werden 
Seite 


VDC-MON - 
DEN 80-ZEICHEN- 
CHIP RICHTIG 
PROGRAMMIEREN 
Manipulieren Sie den 
Video-Display- _ 
Controller Ihres C128 
Seite 


42 


51 


die Hand 


HIRES GRAFIK 


MIT DEM VDC 

Mit diesem nützlichen 
Utility schalten Sie 
Ihre 80-Zeichen- 
Darstellung in hoch- 
auflösenden Grafik- 
Modus. Der ergänzende 
Beitrag zum VDC-MON 


Seite 55 


SCRIPT-CALL 


"Das komfortable Text- 


verarbeitungspro- 
gramm für den 80- 


 Zeichen-Modus. 


Viele professionelle 


_ Textprogramme sind 


teuer und oft schwer 

zu bedienen. Mit 
SCRIPT-CALL geben 
wir Ihnen ein einfaches, 
aber mit allen wichtigen 
Funktionen ausgestatte- 
tes Programm in 


Alle 


Listings 


dieses 
Heftes 
gibt es auf 
Diskette! 


Coupon 


auf Seite 64 | 


Seite 56 


HEIZKOSTEN- 


ABRECHNUNG 
Alle Jahre wieder - 


werden Sie mit der 


_  Heizkosten-Rechnung 
_ des Vermieters kon- 
_ frontiert. Aber sind 


Sie sicher, daß auch 


alles in Ordnung ist? 


Ihre jährliche Abrech- 


"nung überprüft 


der C128 
Seite 84 


OIL-COMPANY 
Schlüpfen Sie in die 
Rolle von Bobby 
Ewing. Wer ihn nicht 


kennt, das ist der 


Bruder von Ekel J.R. 


. aus der Fernsehserie 


Dallas. Beginnen Sie 

mit einer Million 

Dollar und versuchen 

Sie Ihr Vermögen auf 

dem schwierigen 

Ölmarkt zu vermehren 
Seite 90 


MUSIK-GENIE 
Alle Musiker und 
Komponisten aufge- 
paßt! Programmieren 
Sie Ihre selbst erstell- 
ten Werke in BASIC 
und konservieren 
diese auf Diskette 
Seite 96 


PUKER 123 
Von wegen Verein- 
samung am Computer! 
Mit diesem Spiel kön- 
nen Sie nur zu zweit 
gegeneinander antreten. 
Gewinner ist werals 
erstes zehn Chips 
gehamstert hat 

Seite 113 


BÖRSENSPIEL 
Erleben Sie die harte 
Schule der Wall- 
Street. Mit etwas 
Geschick werden Sie 
Multimillionär. 


Ein Gesellschaftsspiel 


für zwei bis sechs 


Spieler 


Seite 120° 


TEEN 


GRAFIK IN DER 


_ ANDEREN DIMENSION 


Der C128 wird i in der Grundkonfiguration mit einem Baustein ii | 


dessen Fähigkeiten noch kaum einer breiten Öffentlichkeit bekannt 

wurden: wir meinen den VDC 8563, den Video-Display-Controller für den 

80-Zeichen-Modus. Wenn Sie nun glauben, dieser Chip wäre einzig und 

allein nur ir dazu fähig, Ihren Eingabetext mit 80 Zeichen darzustellen, dann 
; haben Sie ihn gewaltig unterschätzt. 


Die Brüder Giger a aus Solothurn 


in der Schweiz, Inhaber der Fa. 
Combo AG, gaben sich mit den 
spärlichen Informationen über die- 
‘sen Chip aus dem Handbuch und 


die, die von zuständiger Seite zu er- 
halten waren, nicht zufrieden. Sind 


doch mit dem BASIC 7.0 im 40- 
Zeichen-Modus mit dem anderen 
el VIC sehr schöne 


BISLANG NUR GRAFIK IM 


40- ZEICHEN: MODUS 


Grafiken. ee die ee Weise 
zu erstellen. Befehle wie GRAPHIC, 
DRAW, BOX CIRCLE haben bei 
der Arbeit mit dem 80-Zeichen- 
Chip keinerlei Wirkung. Es gibt zwi- 
schenzeitlich eine oder zwei Soft- 
ware Erweiterungen für den C128, 


die das auch ermöglichen, allerdings 


‚können sie in de Qualität der Bild- 
schirmausgabe und in ihrer begrenz- 
. ten Auflösung (640*200) den ver- 
wöhnten Grafik-Fan nicht recht zu- 
friedenstellen. 

Daß es auch anders geht, beweist 
uns das kombinierte Soft-/Hard- 
ware-Paket „Graphic Booster 128°“ 
aus der Schweiz. (Augenblicklicher 
Preis: 174 Mark + MWSt.) 

Es enthält eine Zusatz- -Steckpla- 
tine mit genauer Bauanleitung und 
die notwendige Installations-Soft- 
ware. Etwas Zeit, Geduld und Kon- 
. zentration (aber keinen Lötkolben!) 


müssen Sie beim Einbau der Steck- 


karte schon aufwenden, wobei der 
Einbau bei der „Normal“ -Ausgabe 
des C128 ungleich leichter von stat- 
ten seht als bei der 128-D-Ausfüh- 


EINBAU DER STECKKARTE 
OHNE LOTEN 


rung. Beachten Sie dabei vor allen 
Dingen die äußerst genauen Anwei- 


sungen in der siitgeheferien zehn- 
seitigen Bedienungsanleitung. Eben- 
so müssen Sie beobachten, daß Ihre 
Garantiebedingungen nach dem 
Öffnen des Computergehäuses kei- 
ne Gültigkeit mehr haben (allerdings 


gilt das nur für Geräte, die jünger als 


ein halbes Jahr sind.) Ist Ihr 128 al- 
ler Abdeckplatten und sonstiger Ge- 
häuseteile entledigt, so liegt die Pla- 
tine des C128 vor Ihnen. Heben Sie 
nun vorsichtig den VDC-Chip her- 


aus und bringen die Steckkarte des. 


„Graphic Booster‘‘ entsprechend 


der Anweisung an, stecken Sie dann _ 


den VDC-Chip wieder an seinen 
alten Platz, diesmal allerdings auf 
der Erweiterungsplatine, zurück. 
Vor allen Dingen sollten Sie den 
Rat auf der vorletzten Seite der Be- 
dienungsanleitung beherzigen, in 


‚der ausdrücklich darauf hingewiesen 


wird, die erste Blechzunge links auf 


dem Abschirmblech beim 128D 


nach oben zu biegen, um so keinen 
Kontakt mit dem eingesteckten Zu- 
satzsockel zu verursachen. (Ihr 
128er könnte es Ihnen sehr übel 
nehmen.) 

Und jetzt kommt der „Hammer“ 
(oder auch eine gute Nachricht für 
alle, die den ‚neuen‘ 128D besit- 


zen): Klammheimlich hat Commo- - 


dore hier nicht nur einige komfor- 
table Veränderungen vorgenommen, 
nein, die Erfindung der Firma 
Combo ist hier bereits hardware- 
mäßig installiert! Alle diese gra- 
fischen Fähigkeiten stehen ab so- 
fort zu. Ihrer Verfügung, müssen 
allerdings mit Hilfe geeigneter Soft- 
ware erst geweckt werden. Inter- 


essant ist in diesem Zusammenhang, 


daß auch die Entwicklerfirma in der 
Schweiz bis vor kurzem nichts von 
dieser „Neuerung“, die ja eigentlich 
ihre Erfindung ist, gewußt hat. Hat 
da jemand Commodore einen Tip 
gegeben? Egal wie, die Besitzer 


‚eines solchen 128D (er ist seit Mai 
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| Sr; 128D auch ‚nichts, außer, 


1987 im Handel and am eichtesen | 


daran zu erkennen, daß sich der 


‚Datasettenport nicht mehr an der 
Gehäuserückseite, sondern seitlich 
links befindet), brauchen diesen et- 
was problematischen Hardware-Um- 
bau nicht mehr vorzunehmen, sie 
erhalten die. Software-Diskette 
von der Firma Combo um etwa 30 


bis 40 Mark unter dem Neupreis des 


gesamten Grafikpaketes. Denn eines 
ist klar: ohne diese Software nützt 
Ihnen die neue Funktion dieses 


+ 228 x zes 


Sie schreiben sich die entsprechen- 
de Software selber. (Doch bei der 
Grafikprogrammierung des VDC 
8563 haben sich schon einige die 
Zähne ausgebissen ...) 

Nach dem Zusammenbau Ihres 


| geöffneten C128 steht der „Graphik 


Booster“ mit all seinen fantasti- 
schen Möglichkeiten zur Verfügung. 
Jetzt muß noch die Systemdiskette 
geladen werden, was mit BOOT. 
oder per Druck auf den Reset-Taster 


ERWEITERUNG PER SOFT- 
WARE: INITIALISIEREN 


geschieht. Auf dem Bildschirm se- 
hen Sie nun die Auflösungsmodi, in 
die Sie Ihren 80-Zeichen-Monitor 
versetzen können. Die erste Zahl 

bedeutet die horizontale, die zweite 
die vertikale Auflösung. Folgende 
Modi stehen zu Ihrer Verfügung: 


ve 


640*360 Pixel 
 640*720 Pixel 
640*600 Pixel 
720*700 Pıxel 
720*600 Pixel 
750*600 Pixel. 


| Möglich Se das Ganze de 
Interlace-Modus, eine Verdopplung 
der vertikalen Auflösung. Hierbei - 


führt der Elektronenstrahl, der die 
Bildschirmröhre abtastet, diesen 


Vorgang zweimal durch: zunächst. 
die geraden Bildschirmzeilen, an- 


schließend die ungeraden Linien. _ 


ammPeHIc BOORSRTEmM 120 
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Zum Vergleich: Im Bild oben die Grafik- 
‚auflösung im 40-Zeichenmodus, unten 
e die Fähigkeiten des ‚Grafikboosters‘. 


- Dabei sollten Sie allerdings beach: 


ten, daß Sie auch den entsprechen- 
den Monitor besitzen. Der 1081 
wird bei diesen Werten seine Schwie- 
rigkeiten in ständigen Bilddurchläu- 


‘ fen äußern, die sich sehr schwer 


„fangen“ lassen. Zumindest sollten 


| PROBLEME MIT DEM 
| MOMEun? | 


Sie den Drehregler der vertikalen 
‚Synchronistaion im Uhrzeigersinn 
bis zum Anschlag drehen (beim 
1081 ist er hinten- angebracht), 
auch die Bildhöhe müssen Sie neu 
einstellen (eventuell mit dem 
 Schraubenzieher neben dem Syn- 
chronisationsknopf). Läßt sich der 


Monitor dadurch noch immer nicht 
aufhalten, sollten Sie auf die höch- 
‚ste Auflösung verzichten und Werte 
nicht über 400 Punkte vertikal ver- 


wenden. 


Ein entsprechender Monitor, der 


für den C128 entwickelt wurde, wie 
beispielsweise der 190, ist hierfür 
der idealste. Entscheiden Sie sich 


nun für einen Auflösungsmodus 


und drücken Sie die entsprechende 
Taste. Nach kurzer Zeit meldet sich 
der Computer wieder. Ab sofort 
stehen Ihnen die aus dem 40-Zei- 
chen-Modus bekannten Grafik-An- 


weisungen zur Verfügung, wenn 


auch in etwas geänderter Form, 
Split-Screen und Multi-Color kön- 
nen Sie nicht einschalten, wohl 
aber 256 Farben von insgesamt 
3000 zur gleichen Zeit darstellen. 


Die Anweisung „GRAPHIC 21° 


schaltet die Grafik ein (640*360, 
bzw. 720*360 Pixel) und löscht 
den Bildschirm. (Im normalen 40- 
Zeichen-Modus hätte er „GRAPHIC 
1,1“ gelautet!) 


Der Color-Befehl für die F arbge- | 
bung verhält sich ebenfalls ein we- 
‘ nig anders, als Sie es vom Grafik- 
modus des VIC-Chip gewohnt sind. 


Der erste Parameter kann hier einen 


"Wert von 0 bis 255, der zweite von 
O0 bis 15 darstellen. Für die Hinter- 


grundfarbe ist immer die erste Zahl 


maßgebend, die Vordergrundfarbe 


wird immer in passendem Kontrast 


.. dazu angezeigt (etwa heller Hinter- 
grund, dunkler Vordergrund oder 
umgekehrt). Wie. beim Amiga fällt 


der Bildschirmrahmen völlig weg, 


Ihre Grafik kann sich über die ge- 


samte Bildfläche erstrecken. 

Natürlich besteht auch die Mög- 
lichkeit, so einen Grafikbildschirm 
auf Disk zu speichern. Hier nutzen 
Ihnen aber die bislang Bileıgen Be- 
fehle nichts. 

Für ihre Stelle wurden zwei An- 
weisungen des BASIC 7.0 zweck- 
entfremdet, die normal etwa ganz 
anderes bewirken: 
SSHAPE“(Name)“,8 


speichert ein Bild auf Disk, je Auch | 


gewähltem Auflösungsmodus be- 
nötigt es um die 200 Blocks auf 
der Diskette; 
GSHAPE“(Name)‘,8 

holt das Bild wieder in den Speicher 
des C128. zurück und zeigt es sofort 
auf dem Bildschirm an. 
Desgleichen wurde der CHAR-Be- 
fehl erweitert. So läßt sich jetzt ein 
Text in Ihrer Grafik nicht nur im 
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TIPS & TRICKS 


Großschrift- und „Blockgrafikmo- 


dus darstellen, sondern auch in. 
Kleinschrift, außerdem gilt hier 


nicht das Koordinatensystem des_ 


KOMFORTABLER 
„CHAR”-BEFEHL 


Textzeilen-Bildschirms (40*24), 
sondern das von Ihnen bei der In- 
stallation des „Graphic Boosters“ 
gewählte. Der Clou: Der angezeig- 
te Text kann nun mit Hilfe zweier 
zusätzlicher Parameter für Höhe 
und Breite (zwischen O bis 100) ver- 
größert werden. (Die ehemaligen 
C64-Freaks unter unseren Lesern 
werden sich sicher noch an Simon’s 
BASIC erinnern, eine sehr komfor- 
table BASIC-Erweiterung, bei der es 
auch möglich ist, Text in einer Gra- 


fik, zumindest in vertikaler Rich- 


tung, zu verändern. Dem ‚‚norma- 
len“ BASIC 7.0 des C128 fehlt 
leider diese Möglichkeit ...) 

Die beiden Soft- und Hardware- 
Entwickler aus der Schweiz haben 
noch eine recht angenehme Option 
dazugepackt: Scrollen um jeweils 
acht Zeilen in beiden Richtungen, 
durch einen SYS-Befehl aufrufbar. 
Durch seine professionelle Änwen- 
dungsmöglichkeit kann der ,„Gra- 
phic Booster‘ ohne weiteres zum 
Programmieren, Gestalten und Ent- 
werfen ebenso professioneller Gra- 
fik verwendet werden. 

. Hier möchten wir auf alle Fälle 
das Arbeiten mit zwei Bildschirmen 
A links Text, rechts Gra- 
iK. 

Übrigens: Die bereits erwähnten 
Auflösungsarten sind auch unter 
dem Betriebssystem CP/M ansprech- 
bar. Sind Sie glücklicher Besitzer 
einer Speichererweiterung (RAM- 
Floppy) für den C128 (1700/1750), 
so können Sie insgesamt acht Bilder 
in der höchsten Auflösung 720*700 
entwerfen und bearbeiten. 


FAZIT 


Mit dem „Graphic Booster“ ste- 
hen dem C128-Benutzer bislang un- 
geahnte Möglichkeiten offen, zu 
denen sein Computer fähig ist: neue 


. Arten der Textdarstellung durch 


einen 43- oder 50-Zeilen-Editor 
(ohne Interlace), CAD, Desktop- 
Publishing und anderes mehr. 
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SUBROUTINES IM 128er 


Bam 128er 


unters Hemd 


geschaut 


Im ROM de Coinimadore 128 sind viele nützliche 
Maschinenspracheroutinen enthalten, die zu nutzen in 
zweifacher Hinsicht lohnt: Erstens benötigen diese 
Progrämmchen keinen Extra-Speicherplatz und . 
zweitens sind sie erprobt, also frei von Fehlern. 


BASIC ist eine in Maschi- 
nensprache programmier- 
te Hochsprache. Die 


Steuerroutinen dieser Sprä- 


che liegen im ROM. Viele 
von Ihnen sind für Ma- 
schinenspracheprogram- 
mierer von großem Wert. 
Vorausgesetzt, man weiß, 
welche Routinen was be- 
' wirken und wie man sie - 


ansteuern muß. Aus die- | 


sem Grund drucken wir 
eine Übersicht, geordnet 
nach ihren Einsatzge- 
bieten. 


‚Abbrechen eines BASIC- 
Programmes ohne Break 
Einsprungadresse: 
$44C6/19910 
 Benutzte Register: 
Register bleiben gleich. 
EN un 


Eine der weniger sinnvol- 


_ len Systemunterroutinen. 

Wird meist benutzt, um 

 Verblüffung hervorzuru- 

fen. Springt ein BASIC- 
- Programm mit SYS 
19910 END an, bricht 

das BASIC-Programm | 
ohne Ausdruck von 

Ä „Ende“ oder ‚Break 


in...“, wie normalerwei- 


se üblich, ab. 


Akkumulatorwert ab- 

speichern | 
 Einsprungadresse: 

$FF77/65399 
 Benutzte Register: 

Akkumulator, X, Y, 

Speicherstelle $2B9 

CLodebezeichnung: | 
INDSTA 


Um den Akkumulatorin- | 


‚nes Programmes zwei 


halt in eine beliebige 
Speicherstelle zu schrei- 
ben, benutzen viele Ma- 
schinenspracheprogram- 
mierer die INDSTA- 
Routine. Sie funktioniert 
ähnlich INDCMP, ‚‚Werte- 


vergleich Akkumulator 
mit Speicherstelle“. In 


der Nullseite des C128 


steht der Pointer auf die 


Adresse, in die der Akku- 
mulatorinhalt geschrieben 
werden soll. Adresse 
$2B9 zeigt auf diesen 
Nullseitenpointer. Das X- 
Register fungiert als Kon- 
figurationsindex, das Y- 


‚Register als Offset des 
Nullseitenpointers. . 


Bildschirmausgabebreite 


tauschen 


Einsprungadresse: 
$FF5F/65375 
Benutzte Register: 
Register bleiben gleich. 


 Codebezeichnung: 
ar SWA PPER | 


Gibt der C128 seine Da- 


ten auf den 40-Zeichen- _ 


Bildschirm aus, ändert 


 Swapper die Ausgabe auf \ 


80-Zeichen-Bildschirm 


um. War es vorher der 80- 
‚Zeichen-Bildschirm, der 
angesprochen wurde, be- 


vor SWAPPER wirksam 
war, printed der 128er 


alle Bildschirmausgaben 


danach auf den 40-Zei-- 
chen-Bildschirm. SWAP- 
PER ist nur nützlich, 
wenn man innerhalb ei- 


Bildschirme ansprechen 
will (sehr selten). Wichtig 


ist: Keine Verwechselun- 


Register werden neu 


Codebezeichnung: 


gen, denn ein SWAPPER 
zuviel oder zuwenig bringt 
alle weiteren Ausgaben | 
durcheinander. | 


Bootreset 
Einsprungadresse: 
$FF56/65366 

Benutzte Register: 

Keine Registersteuerung 
möglich. 
Codebezeichnung: 
PHOENIX | 


Um vor unbefugten Zu- 
griffen zu schützen, oder 
ein Programm am Ende - 
seiner Funktion wieder 
ins Hauptmenü auf Dis- 
kette springen zu lassen, 
nutzt man PHOENIX. 
Dieses Unterprogramm 
führt einen RESET mit 
anschließendem Boot- 
Versuch durch. Im Gegen- 
satz zu BOOTCALL = 


- „Diskette booten“ geht 


die Kontrolle über den 


-C128 entweder an das 


Bootprogramm oder an 


. das Betriebssystem über. 
Bei BOOTCALL kontrol- 


liert das Ursprungspro- 
gramm weitere Aktivitä- 
ten, falls keine Boot-File- 
diskette eingelegt war. 
Aus diesem Grund ist 
BOOTCALL meist 
PHOENIX vorzuziehen, 
da unter Umständen kei- 
ne Softwarekontrolle 
über den Rechner mehr 
möglich ist. 


C64- Modus einschalten 
Einsprungadresse: 
$FF4D/65357 
Benutzte Register: 


gesetzt. 


C64MODE 


Um vom 128er-Modus 


zum C64-Modus zu gelan- 
gen, genügt der Sprung in 
die C64MODE-Programm- 


 routine. Nach diesem 


Sprung ist eine Kontrolle 


über den Computer mit- 
tels Programm nicht mehr | 


möglich, da C64MODE 
automatisch. einen Reset. 


ES durchführt. 


Diskette bosan | 
Einsprungadresse: 
$FF53/65363 


 Benutzte Register: 
:X-Register 


Codebezeichnung: 
BOOTCALL 


Möchte man ein Pro- 
gramm auf der Diskette 
booten, gibt man dem 


XCY-Register das zu boo- 


tende Laufwerk entspre- 
chend dessen Geräteadres- 
se an und springt dann in 
die BOOTCALL-Routine. 


Ist auf der eingelegten 


Diskette kein Bootpro- 


gramm gespeichert, bricht 
' BOOTCALL den Boot- 


Versuch ab und übergibt 
die ‚Kontrolle an den 


Rechner zurück. Texte 
wie „Falsche Diskette ein- 
gelegt‘“ können nun aus- 
gedruckt werden, um. 
nach Tastendruck einen 
erneuten Bootversuch zu 
starten. | 


Einlesen ı von Zeichen 
sup ngadresse: 
$FFE4/65508 
Benutzte Register: 
Akkumulator | 


.Codebezeichnung: 


Mit diesem Unterpro- 


gramm ist es möglich, so- 
wohl Daten aus einer Dis- 
kettendatei, als auch Da- 


_ ten von der Tastatur ein- 
 zulesen. Je nach Wunsch, _ 


muß vorher die entspre- 
chende Eingabedatei 


(Tastatur oder Floppy 


oder die RS-232-Schnitt- 
stelle) angegeben werden. 


E 
ame pn FR 
E 


-  Akkumulator zu schrei- 


IEC-Bus auslesen 
Einsprungadresse: 
- $FFA5/65445 
Benutzte Register: 
-  Akkumulator. Ä 
.. Codebezeichnung: 
ACPTR 


bei erfolgreicher IEC- 
Bus-Auslese im Status- 
byte der Nullseite, der 


 Speicherstelle $90, das 
höchste Bit gesetzt. Der 


ausgelesene Wert selbst 
steht in diesem Fall im 
Prozessorakkumulator. 
Bei nicht gesetztem Sta- 
tusbyte steht ein belie- 


 biger Wert im Akkumu- 


lator.. 


IEC-Bus ansenden 
Einsprungadresse: 
| re 


wnuteam. 


0 


Benutzte Register: 
Akkumulator 
Codebezeichnung: 
CIOUT. 


Entspricht als : Gebenstüick 
der IEC-Bus-Einlese-Rou- 
‚tine. Der zusendende 
Wert ist vor Ansprung 
dieser Subroutine in den 


ben. Nach dem Sendevor- 
gang gibt das Statusbyte 


in Adresse $90 bei gesetzt 


an, daß der Sendevorgang 
geglückt ist. Ansonsten 
trat ein Fehler auf. 


/O- Init. ; 
Einsprungadresse: 
FF84/65412 
enutzte Register: 
Reiser bleiben gleich. 
.Codebezeichnung: | 
IOINIT 
Oftmals reagieren ange- 
schlossene Geräte nicht 


“ Um die drei besonderen 


im erwarteten Maße, weil 
bereits Unterprogramme 


die Datenleitungen blok- 


 kieren oder Datenflußzei- 
‚ger verbogen haben. 


IOINIT bringt alle 1/O- 
Leitungen in den Ur-. 


en ...- „ sprungszustand zurück. 
Nachdem diese Routine 
_  angesprungen wurde, ist 


Diese Routine bewirkt 
somit einen Reset aller 


- 1/O-Leitungen des 128ers. 
auf die STOP-Routine 


Modi löschen 


+ Einsprungadresse: 
-$C77D/51069 


Benutzte Register: 
Register bleiben gleich. 


 Codebezeichnung: 


CLOQIR 


Modi des C128 (Hoch- 
komma-, Insert- und Re- 
versmodus) garantiert zu- 
rückzusetzen, genügt es, 
diese Subroutine anzu- 
springen. Speziell bei Pro- 
grammierung von Pro- . 
grammiersprachen und 
Textverarbeitungspro- 


!  grammen ist diese Unter- 
g routine sehr wichtig. 


Reset ausführen 
Einsprungadresse: 


- $E000/57344 


Benutzte Register: 
Löscht Register. 


“ Codebezeichnung: 
SET | 


Um alle Register, Daten- 


leitungen und sonstige 
Arbeiten des CE128 wir- 
kungsvoll und auf Dauer 
per Softwareroutine zu 
unterbrechen, genügt ein 
kurzer Sprung in $E000. 
Danach führt das System 
einen Reset aus. Vom Ur- 
sprungsprogramm bleibt 
wenig übrig, die Kontrol- 
le über den Computer 


.. geht an das Betriebs- 


system. 


RUN-STOP-Taste ab- 
fragen 
E a 


 $FFE1/65505 


Benutzte Register: 
Z-Flag im Prozessor. 
Codebezeichnung: 
sToP nn 


In sehr vielen Program- 


men kann der Anwender 


- Funktionen mittels RUN- 


STOP-Taste unterbre- 
. chen, um danach ins 


Hauptmenü zurückzukeh- 
ren. Ebenfalls in BASIC 
ist es möglich, den Pro- 
grammablauf mit RUN- 
STOP zu unterbrechen, 
falls das System nicht 


hängt oder die Taste ab- 


geschaltet ist. 


- Die meisten Programmie- 
rer greifen bei der Abfra- _ 


ge der RUN-STOP-Taste 


des Betriebssystems zu- 
rück. Nutzt man dieses 


_ Unterprogramm, so steht 
im Zero-Flag des Prozes- 


sors eine Eins, falls die 
RUN-STOP-Taste ge- 

drückt ist. Ansonsten 
steht im Zero-Flag eine 


- Null. Wurde die STOP- 


Taste gedrückt, macht 
der C128 alle OPEN-Be- 
fehle rückgängig. 


Softwarereset ausführen 
Einsprungadresse: 


$FF87/65415 


Benutzte Register: 


‚Register werden ohne 


Sinn manipuliert. 
Codebezeichnung: 
RAMTAS 


| Im Gegensatz zu RESET 


initialisiertt RAMTAS 
nicht alle Funktionen 
des Computers, sondern 
setzt nur Zero-Page-Poin- 
ter auf Anschaltanfangs- 
werte zurück und: löscht 
die Kassetten- und Tasta- 
en Um den, C128 
vollständig zu initialisie- 


ren, genügt $E000/ 57344. 


Sprung i in beliebige 
Speicherblöcke 
Einsprungadresse: 
$FF71/65393 


Benutzte Register: 
. Register bleiben erhalten. 


Codebezeichnung. 


- IMPFAR 


Durch die Bank- -Speicher- 
einteilung ist der Speicher- 


. aufbau des C128 kompli- 


zierter, als der des C64. 
IMPFAR umgeht einige 


der dadurch auftretenden 


Schwierigkeiten. Gemäß 


- den, in den Nullseiten- 


adressen $02 bis $09 an- 
gegebenen Werten, führt 


der Computereinen 


Sprung an eineandere 
Speicherstelle durch,um 
dort ein Unterprogramm 


zu bearbeiten. Die Ziel- 


_ Y-Register: 


adresse selbst ist: wie folgt a 


festgelegt: 
| Kan steht 


1n: 


_ Programmzähler n ent-. | 


halten in: 
Prozessorstatus steht‘ 
in: = 
Akkumulator, X- und 
Y-Register: 606/07/08 
‚SP=Stack- 
pointer: $09 .. 


Die Routine selbst a 
allerdings nicht zuden 
schnellsten. 


Sprung in Subroutine 
mit beliebigem Anfang 
Einsprungadresse: 
$FF6E/65390 
Benutzte Register: 
Register bleiben erhalten. 


. Codebezeichnung: 


JSRFAR 


Um Unterprogramme in. 


‚anderen. Speicherblöcken 


anzuspringen, ohne da- 
bei programmiertechni- 
sche Klimmzüge vollfüh- 
ren zu müssen, nutzt man 
diese Routine. Sie ist mit 
JMPFAR=Sprung in belie- 
bige Speicherblöcke, zu 
vergleichen. Das Sprung- 
ziel ist hier ebenfalls 

durch die Nullseitenadres- 
sen $02 bis $09 definiert: 


Konfigurationsindex 
steht in: 02 | 
Programmzähler ist ent- 
halten in: 2/03 
on 05 


Alkumtlator: X-und 
806/07/08 


$09 


Statusbyte auslesen 
Einsprungadresse: 
$FFB7/65463 
Benutzte Register: 
Akkumulator 
Codebezeichnung: 
READSI 


Das Statusbyte in Adres- 
se $90 ist eine oft benö- 
tigte Hilfe bei der Kon- 
trolle einiger Unterrouti- 
nen. Speziell Unterpro- 
gramme mit IEC-Bus- | 
Schreib- oder Lese-Befeh- 
len nutzen $90, um über 
den Erfolg der Operation 
zu berichten. (Bei Erfolg 
ist das Statusbyte gesetzt. 


SP=Stack- 
pointer: 
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READST hilft dem Pro- 


_  grammierer, indemnach 
 Ansprung dieser Unter- 


 routine der Statusbyte- 


.. wert im Akkumulator 


‘steht und dort für weite- 
‚re Vergleiche genutzt wer- 
 denkann. 


5 Systemnachrichten 
manipulieren 
Einsprungadresse: 

$FF909/65424 
Benutzte Register: 
Akkumulator 
Codebezeichnung: 
SETMSG 


Der Commodore 128 hat 
zwei Möglichkeiten im 
Umgang mit Systemmel- 
dungen: 1. Er printed sie 
unter allen Umständen 
aus; 2. Er unterdrückt sie 
in jedem Fall. In bestimm- 
ten Fällen ist es sinnvoll, 
die Ausgabe der System- 
meldungen derart zu ma- 
nipulieren. - 
Das Kontrolibyte über 
diese Funktion steht in 
- $9D der Zero-Page. Ist 
das höchste Bit dieser 
Adresse gesetzt, werden 
Systemmeldungen ausge- 
geben. Ist das höchste 
"Bit ungesetzt, unterdrückt 
der 128er sämtliche Sy- 
stemmeldungen. Mit 
 SETMSG schreibt man 


den Wert des Akkumula- . 


tors direkt nach $9D. 

. Ist der Akkumulatorwert 
größer 128, sind alle Sy- 
stemmeldungen nach 
SETMSG erlaubt. Ist der 
Akkumulatorwert gerin- 
ger als 128, unterdrückt 
der Commodore nach 
SETMSG weitere System- 

meldungen. | 


Se omunı auslesen 
u Fr 


Er an Register: 


 Akkumulator, X-, 


Y-Register. 
 Codebezeichnung: 
RDTIM | 


Im Commodore 128 
‚steht eine Systemuhr zur 
Verfügung. Viele Pro- 


 grammierer greifen auf 


diese (relativ ungenaue 
aber einfach zu handha- 


bende) Zeitmessungsme- 


thode zurück. 
Insbesondere Grafik- und 


Textadventures benöti- ' 
gen weniger exakte Zeit- 


 messung und nutzen da- 


her verstärkt RDTIM. 
Nachdem diese Routine 
durchlaufen wurde, ste- 
hen die Zeitwerte in: 
Akkumulator = Stunden- 
wert, X-Register = Minu- 
tenwert, Y-Register = 
Sekundenwert. | 
Um die ‘Uhr zu setzen, 
nutzt man SETTIM in 


Adresse $FFDB/65499. 


Die abzuspeichernden : 
Werte sind in gleicher Art 


und Weise auf Akkumula- 


tor, X-und Y- en 
verteilt. 


nur setzen 
SEEDBIRS a 


ee r Ra ier. 
Akkumulator, X-, 
Y-Register. 


.Codebezeichnung: 


SETTIM 


Um die, im C128 vorhan- 
dene, automatische Sy- 
stemuhr zu setzen, bietet 


. sich diese Routine an. 


Der zu setzende Stunden- 


wert ist vorher in den Ak-. 


kumulator, der Minuten- 
wert in das X-Register und 
der Sekundenwert in das 
Y-Register zu schreiben. 
Nach Ansprung der Un- 
terroutine sind diese Pa- 
rameter übergeben und 
der 128er beginnt auto- 
matisch, ab diesem Zeit- 
punkt weiterzuticken. 
Mit dem Unterprogramm 
„Systemuhr auslesen‘“‘= 
RDTIM liest der C128 die 


 Systemuhr aus und über- 


trägt die Daten entspre- 
chend der SETTIM-Rou- 
tine in Akkumulator, X- 
und Y-Register. 


 Tastatureingabe prüfen 


Eins se 
$FFYF/65439 
Benutzte Register: 
Registerwerte bleiben 
gleich. _ 

CoQ DESERnEUNE 
KEY 


Um zu testen, ob eine 
Taste gedrückt ist, springt 


man die KEY-Unterrouti- 


ne an. Im Falle eines Ta- 
stendruckes wird der Ta- 
stenwert in den Tastatur- 
puffer BeSCHICDEN und 


die Pufferspeicherzahl 

um den Wert 1 erhöht. _ 
Erwähnenswert ist: KEY 
testet automatisch, in wel- 


:chem Zustand (obin. 


ASCII oder DIN) sich die 
Tastatur augenblicklich 


befindet und nimmt den 


Wert aus der entsprechen- 
den Tabelle. 


Tastaturwerte bis CR 
einlesen 
Einsprungadresse: 
$C258/49752 | 
Benutzte Register: 
Register bleiben gleich. 
Codebezeichnung: 
ETLIN 


Jedes über Tastatur einge- 
gebene Zeichen wird an- 
genommen und am Bild- 
schirm geprinted, bis 
Return gedrückt wurde. 
Wichtige Routinen für 
Texteingaben. 


Textblöcke ausgeben 
Eins Dn adresse: 
$FF7D/65045 
Be Register: 
Register bleiben gleich. 
Codebezeichnung: 
PRIMM 


Eine der wichtigsten 
Routinen, um Texte aus- 
zugeben, ist PRIMM. Das 
Prinzip von PRIMM ist 


sehr einfach: Man 


schreibt in den Speicher 
den JSR $FF7D und da- 


nach einen Text beliebi- 


ger Länge mit beliebigen 
Steuerzeichen wie Cursor 
up und Return. Der C128 
printed diesen Text auf 


das jeweilige aktuelle Aus- 


gabegerät wie Bildschirm, 
Drucker oder Laufwerk. 


PRIMM hört erst dann auf, 


Daten an das Ausgabege- 


rät zu senden, wenn es auf 


ein Byte mit dem Wert 
Null stößt. PRIMM ist da- 
mit eines der mächtigsten 


 Ausgabewerkzeuge eines 


Be DOKDie 
grammierers. 


Wertevergleich Akkumu- 
lator mit Speicherstelle 
Einsprungadresse: 
$FF7A/65402 

Benutzte Register: 
Akkumulator, X, Y, 
Speicherstellen $2C8, 
$05 | 


Codebezeichnung: 
INDCMP 


10 


 DIN-ASCH 


= Mit diöser Routine ver- 


gleicht man den Wert 
des Akkumulators mit 


. dem Wert einer beliebi- 


gen Speicherstelle. Diese 
Speicherstelle wird wie 
folgt angegeben: Inder 


 Speicherstelle $02C8 
‚steht der Pointer auf der 
‚Adresse, die den zu ver- 


gleichenden Wert enthält. 
Das X-Register fungiert‘ 
als Konfigurationsindex, 


das Y-Register als Offset . 
des Nullseitenpointers. 


In Speicherstelle $05 ist 
das Vergleichsergebnis 
nach der Operation zu 
finden. 


Zeichenmodus setzen 

Eins esse: 
FF81/65409 

5 tzte Register: - 

Register bleiben gleich. 

Codebezeichnung: 

CINIT 


CINIT ist ein mächtiges 
Unterprogramm mit ent- 


sprechend vielen Funktio- - 


nen: 1. CINIT prüft nach, 
ob gerade der 40- oder 
der 80-Zeichen-Modus 
per Tastatur eingestellt 


‚ıst und initialisiert die 


Ausgabe auf den entspre- 
chenden Wert. Neben 


_ der Änderung des Video- 


kontrollers werden alle 


Funktionstastenbelegun- 


gen gelöscht oder neu 
initialisiert. 

Daten im Tastaturpuffer 
und der dazugehörige 
Pointer werden auf Null 
gesetzt und alle I/O-Ka- 
näle automatisch ge-. 


schlossen. Maschinen- 


sprache-Programmierer 
müssen aufpassen, daß 

sie bei gewünschten Funk- 
tionen dieser Routine die 
ungewünschten Neben- 
und Folgeeffekte nicht . 
vergessen, sondern sich 
dagegen absichern. 


Character-ROM ins 
VDC-RAM kopieren 
Einsprungadresse: 
$FF62/65360 
Benutzte Register: ' 
Register bleiben gleich. 
Codebezeichnung: 
CHR 


DLCHR koae ‚jenach 
ie 


en jeweiligen Zeichen- 
satz vom Charakter-ROM 
ins VDC-RAM. Im RAM 
‚läßt sich der Zeichensatz 
beliebig verändern und 
nutzen. Notwendig hier- 
für ist jedoch, die Aus- 
. gabe auf 80 Zeichen j je 
Zeile zu stellen. = | 


CHKIN und CKoUT- 
zurücksetzen 
Einsprungadresse: 
$FFCC/65484 
Benutzte Register: 

Register bleiben gleich. 
 Codebezeichnung: 
CLRCH Ä 


_ Wurden mit CHKINund 


CKOUT Kanalnummern 
‚verändert und möchte 
man diese Änderungen 
rückgängig machen, 
springt man CLRCH an. 
CLRCH setzt alle Ände- 
rungen zurück und sen- 
- det zugleich einen Talk 


und einen UNTALK-Be- 


fehl, um alle vormals an- 
Ä gesprochenen Geräte wie- 


derin deren Wartezu- 


stand zurückzuversetzen. 


Cursor- Home 

Einsprungadresse: 

$C150/49752 

Benutzte Register: 

Register bleiben gleich. 

. Codebezeichnung: 
CURHOM 


Die meisten BASIC- Pro- 
grammierer nutzen von 
BASIC aus diese Sub- 


 „ routine regelmäßig. Für 


Maschinensprache-Pro- 
grammierer ist sie unum- 
gänglich. 

‚Ist vor Nutzung‘ dieser 
Routine ein Fenster de- 
finiert, führt CURHOM 
. den Cursor an die linke, 

. obere Ecke des definier- 

ten Fensterbereiches. An- 

sonsten entspricht 


- » CURHOM dem Tasten- 


druck der CLR-HOME- 
Taste. 


"Cursorstandpunkt mani- 
pulieren/feststellen 
ED neueste 
$FFO/655 

Benutzte R le 

X- und Y-Register, 
Carry-Flag. 
Codebezeichnung: 
PLOT 


- Auch diese Unterroutine 


arbeitet) je nach Carry- 
Flag in zwei verschiedene 


- Richtungen: Ist das Car- _ 


ry-Flag gesetzt, während - 


PLOT aufgerufen wurde, 


so steht nach Ablauf der 
Prozedur im X-Register 
der Wert der aktuellen 
Cursorspalte und im Y- 
Register der Wert der ak- 
tuellen Cursorzeile. Ist 
das Carry-Flag gelöscht, 
dann setzt PLOT den Cur- 
sor an die Stelle: Zeile = 
Y-Register-Wert und 


Spalte = X-Register-Wert. 


PLOT zu nutzen lohnt 
sich vor allem vor posi- 
tionierten Ausgaben mit 
PRIMM, BSCOUT oder 
BSOUT SCRN in den 
Adressen $FF7D/65405, 

FFD2/65490 und 

C72D/50989, die zur 
Ausgabe von Texten ab 
der aktuellen Cursorposi- 
tion dienen. 


Dateien schließen 

E Eee 

$FF Sil 
re Register: 
Register bleiben gleich. 


Codebezeichnung,; 
CLALL 


CLA LL schließt alle gera- 
de geöffneten Dateien 
und Kanäle. Danach 
springt es selbständig eine 
andere Unterroutine an. 
Diese Unterroutine än- 


dert die Kanaleinlese- 


und -ausgabenummern 
auf den Anfangszustand 


nach dem Einschalten 


um. 


DMA-Kontroller nutzen 
Eins ae 
$FF50/65360 
Benutzte Register: 
X-Register. 


 Codebezeichnung: 
-. DMACALL 


Um DMA-Zugriffe zu 


steuern, setzt man 


DMACALL ein. Im X-Re- 
gister steht der hierfür 
neue Konfigurationswert. 


Im Normalfall ist diese 


Routine unwichtig, da 


. meist kein Gerät am C128 


angeschlossen ist, das die- 
se Routine nutzen kann. 
Beispielsweise wäre ein 
solches Gerät eine Fest- 
platte (=Harddisk). 


Eingabe /Ausgabebereichs- 


Adressen einlesen 
Ein GErES ERS SE. 


| e Be 


X- und Y-Register. _ 
gg rehnung:. 
IOBASE 


Nach Anspringen dieses 
Unterprogramms befin- 
den sich im X-Register 
das Low-Byte und im Y- 
Register das High-Byte 


‚der Basis-Eingabe-Aus- 


Adresse 


($DO 


Empfang abschalten 

Einsprungadresse: 

$FFAE/65454 

Benutzte Register: 

Register bleiben gleich. 

Codebezeichnung: 
LSN 


Um externe Geräte auf 
Empfang zu schalten, be- 


nutzte man die LISTEN- 


Routine. Mit UNLSN 
unterbricht man die Emp- 
en des 
Gerätes. 


Empfang initialisieren 
Einsprungadresse: 
$FFB1/65457 
Benutzte Register: 
Akkumulator. 
Codebezeichnung: 
LISTEN | 


Um ein externes Gerät 


- auf Empfang zu stellen, 


springt man die Subrou- 
tine LISTEN an. Das anzu- 
sprechende Gerät wird 
durch den Wert im Akku- 
mulator (Geräteadresse) 


bestimmt. Danach ist das 


Gerät solange auf Emp- 
fang gestellt, bis die Rou- 
tine UNLSN angesprun- 


. gen wird. Um Daten an 


das Gerät auszugeben, ist 
die CIOUT-Routine in 
$FFA8/65448 zu ver- 
wenden. 


Fensterbereich löschen 
Einsprungadresse: 
5C142/49474 
Benutzte Register: 
Register bleiben gleich. 
Codebezeichnung: 
CLRWIN 


Um den Textinhalt in ei- 
nem definierten Fenster 
zu löschen, nutzt man die. 


1. 


TIPS - TRICKS - KNIFFEBE 


CLRWIN-Routine. Im 
Falle keines definierten 
Textfensters nimmt 
CLRWIN den gesamten 
Bildschirm als Fenster an 
und löscht diesen. Aller- 
dings benötigt diese Rou- 
tine mehr Zeit als die üb- 
licherweise benutzte 
CLR- HOME- Routine. 


on umbe- 
ne | 
re a 
FF65/65381 
eo. Register: 
Akkumulator, X- und 
Y-Register. 


. Codebezeichnung: 
PFKEY Ba 


Der Commodore 128 bie- 
tet die Möglichkeit, seine 
zehn Funktionstasten und 
die HELP-Taste mit ande- 
ren Funktionen oder Tex- 
ten frei zu belegen. Dafür 


. gibt es teilweise Program- 


me, teilweise ist esin 


Programmen wie Textver- 
arbeitungen schon einge- 
baut. Sinnvoll ist es alle- 
mal und als Maschinen- 
sprache-Programmierer 
nutzt man in diesem Fall 
die PFKEY-Routine. 

Die Handhabung ist fol- 
gendermaßen: Im X-Re- 
gister steht die Nummer 
der zu belegenden Funk- 
tionstaste, also 1 bis 12 
oder $01 bis $0C. Im Y- 
Register steht die Länge 
der Zeichenkette, die der 


 Funktionstaste zugeord- 


net werden soll. 

Der Text selbst wird 
durch ein Nullseitenpoin- 
ter angegeben, dessen 
Speicherstelle wiederum 
im Akkumulator steht. 


Kanal schließen 
Einsprungadresse: 
$FFC3/65475 

Benutzte Register: | 
Akkumulator, Carry-Flag. 
Codebezeichnung: 

CLOSE Ä 


CLOSE schließt eröffne- 
te Kanäle ab. Die ge- 


. wünschte Kanalnummer, 


die zu schließen gilt, muß 
vorher in den Akkumula- 
tor geschrieben werden. 
Falls die Routine fehler- 
haft arbeitet, setzt sie das 
Carry-Flag des Mikröpro- 


BTIPS :TRICKE KT 


ZESSOTS. Damit läßt sich 
beispielsweise prüfen, ob 
ein Kanal überhaupt ge- 

Dune ist. 


| Kanalausgabenummer 
festlegen. 
Einsprungadresse: 
$FFC9/65481 
Benutzte Register: 

- X-Register und Carry- 
Flag. nn 
Codebezeichnung: 
„KOUT - 


Das logische Gegenstück 
zu CHKIN. Ummit 
BSOUT und dem Akku- 
mulatorwert Daten aus- 
zugeben, muß man vor- 
her den gewünschten Aus- 
gabekanal mittels der 
CKOUT-Routine bestim- 
men. Das anzuwählende 
Gerät steht als Geräte- 
nummer = Kanalnum- 
mer im X-Register. 
Falls kein Ausgabegerät 
der angesprochenen Num- 
mer gefunden wurde, 
setzt CKOUT das Carry- 
Flag des Prozessors (bei- 
spielsweise bei abgeschal- 
tetem Drucker und dem 
Versuch, dieses Gerät an- 
"zusprechen). _ 
Um unnötige Programm- 
abbrüche zu vermeiden, 
ist es sinnvoll, das Carry- 


-F lag nach Nutzung der 


CKOUT-Routine zu prü- 
fen. 


Kanal-Einlesenummer 
festlegen 
Einsprungadresse: 
$FFC6/65409 
Benutzte Register: 
 X-Register und Carry- 
Flag. 
debeselehnung: 
CHKIN 


Um die Routine BASIN 
($FFCF/65487) richtig 
zu nutzen, muß man vor- 
her mittels CHKIN die 
Kanal-Einlesenummer 
festlegen. Die gewünschte 
Kanalnummer, also das 
gewünschte Einlesegerät, 
ist mit dem X-Register 
festzulegen. Konnte der 
Kanal nicht eröffnet wer- 
den, setzt CHKIN das 
Carry-Flag des Prozessors. 
Ist das Carry-Flag = 0, so 
wurde gas gewünschte 


Einlesegerät gefunden 


. und angesprochen. 


Konfigurationstabelle 


auslesen 


Einsprungadresse: 
$FF6B/65387 
Benutzte Register: 


X-Register. 


Codebezeichnung: 


 GETCONF | 
Um die 128 KByte des 


C128-Speichers zu ver- 


walten, nutzen viele An- 


wender die GETCONF- 
Unterroutine. GETCONF 


speichert im Akkumula- 


tor das, dem X-Register 
entsprechende, Konfigu- 
rationsbyte aus der Ta- 
belle ab $F7FO. 

Vorsicht: Steht im X-Re- 
gister ein höherer Wert 
als 16 (maximale Werte- 
zahl), kann es zu unvor- 
hersehbaren Systemfeh- 
lern kommen. 


Senden/initialisieren 
Einsprungadresse: 
$FFB4/65460 
Benutzte Register: 
Akkumulator. 
Codebezeichnung: 
TALK 


Um ein externes Gerät, 
das am IEC-Bus ange- 


schlossen ist, zum Senden 
seiner Informationen zu 


bringen, springt man die 
Unterroutine TALK an. 
Die Geräteadresse des ge- 
wünschten Sendegerätes 
muß vorher im Akkumu- 
lator angegeben werden. 
Um die Sendequelle .wie- 
der auf Wartestellung zu 
bringen, springt man die 
UNTLK-Unterroutine in 
$FF96/65430 an. 


- Sender abschalten 
. Einsprungadresse: 


$FFAB/65451 
Benutzte Register: 
Register bleiben gleich. 


 Codebezeichnung: 


UNTLK 


Wurde ein Gerät mit dem 
Unterprogramm TALK 
zum Senden von Daten 
angeregt, schaltet man 


die Sendungen mit UNTLK 


wieder ab. Während in 
TALK im Akkumulator 
die Gerätenummer anzu- 


geben ist, sendet UNTLK . 


ein generelles Sendestop. 


RIESEN ab- 
fragen/bestimmen 
Einsprungadresse: 
$FF99/65433 
Benutzte Register: 

X- und Y-Register, 
Carry-Flag. 
COOEDeLIennung. 


MEMTOP 


Mit MEMTOP liest man 
entweder aus den Nullsei- 


ten-Pointeradressen die 


Werte der oberen Spei- 


- chergrenze oder schreibt. 


die gewünschten Werte 
dieser Grenze in diese 
Speicherstellen: Ist das 
Carry-Flag gesetzt (SEC), 


. dann nimmt die Speicher- 


obergrenze den Wert vön 


. X-Register = Low-Byte, 


und Y-Register = High- 
Byte an. 
Es ist erforderlich, VOT- 


‚her zu prüfen, ob die 


Speicheruntergrenze 

weit genug unter dem 
Wert der neuen Speicher- 
obergrenze liegt, da es an- 
sonsten zu Systemabstür- 
zen kommen kann. 

Ist das Carry-Flag des 
Prozessors gelöscht 
(CLC), dann liest MEM- 
TOP die Speicherober- 
grenze in: High-Byte = 
Y-Register, Low-Byte = 
X-Register. Die Unter- 
grenze des Speichers er- 
fährt man durch MEM- 
BOT in $FF9C/65436. 


Speicheruntergrenze 
abfragen/bestimmen 
Einsprungadresse: 
$FF9C/65436 
Benutzte Register: 
X- und Y-Register, 


. Carry-Flag. 


Codebezeich Rune: 
MEMBOT 


Mit MEMBOT liest man 
entweder aus den Nullsei- 
ten-Pointeradressen die 
Werte der unteren Spei- 


cherbegrenzung oder man 


schreibt die gewünschten 


Untergrenzwerte in diese 


Speicherstellen: Ist das 
Carry-Flag gesetzt (Ma- 
schinensprachebefehl: 
SEC), dann nimmt die 
Speicheruntergrenze den 
Wert von X-Register= 
Low-Byte und Y-Register 
=High-Byte an. 

Es ist unbedingt erforder- 
lich, vorher zu prüfen, ob 
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die Speicherobergrenze 
_ - weit genug über dem 


Wert der neuen Speicher- 


- untergrenze liegt, da es 


ansonsten zu Systemab- 
stürzen kommen kann. 

Ist das Carry-Flag des Pro- 
zessors gelöscht (Maschi- 


‚nensprachebefehl: CLC), 


dann liest MEMBOT die 
Speicheruntergrenze in: 
High-Byte=Y-Register, 


 Low-Byte=X-Register. _ 
. Die Untergrenze des Spei- 


chers erfährt man durch 
die Unterroutine MEM- 
TOP in $FF99/65433. 


- Speicherzelle lesen 


Einsprungadresse: 
$FF74/65396 


 Benu . Register: 


Akkumulator, X- und 
Y-Register. 
Codebezeichnung:: 
INDFET 


Der Speicher des Commo- 
dore 128 ist in mehrere 
Speicherblöcke aufge- 
teilt. Üblicherweise kann 
man eine Speicherstelle 
einer anderen Bank nur _ 


dadurch ansprechen, daß 


man zwischen der gerade 
aktuellen Bank zur ge- 
wünschten Bank hin- 
schaltet, um. den Wert zu 
lesen und dann wieder in 
die alte Bank zurück- 
schaltet. 

INDFET löst dieses Pro- 
blem auf einfache Weise: 
Im X-Register ist zuvor 
der Konfigurationsindex 
und im Y-Register der 


_Nullseitenpointer-Offset 


einzupoken. 

Im Akkumulator steht 
der Wert der Nullseiten- 
speicher-Adresse, die 

auf den zu lesenden Spei- 
cher zeigt. Der gelesene 
Wert steht am Ende der 
Prozedur im Akkumula- 
tor. 

Die Adresse errechnet 


‚sich aus: Pointeradresse 


+ Wert des Y-Registers 


in der Speicherbank, be- 


stimmt durch das X-Re- 
gister. 


Systemuhr hochzählen 
Eins Decone 
SFFEA/65514 
Benutzte Register: 
Register bleiben gleich. 
Codebezeichnung: 


UDTIM 


EEE T|PS - TRICKS - KNIFFEIN 


Im Commodore 128 be- 
findet sich eine inter- 

. rupt-gesteuerte Uhr. 
Dieses Zeitmeßinstru- 
ment ist nicht genau, da 
bei Zugriffen auf die Dis- 
kette beispielsweise die 
Interruptzyklen verändert 
werden und die Uhr da- 
her in falschen Zeitab- 
ständen hochzählt: _ 

Um diese Fehlerquote et- 
was herabzusetzen, kann 
man die IRQ-gesteuerte 
Uhr inkrementieren und 
somit durch Diskettenzu- 
griffen hervorgerufene 
falsche Zeiten der richti- 
gen anpassen. _ 


© _ Systemvektoren 
-  ‚Initialisieren 


Einsprungadresse: 
$FFSA/65418 
 Benutzte Register: 


 - Carry-Flag. 


Codebezeichnung: 
RESTOR. 


Gerade in der ersten Test- 
phase eines Assembler- 
freaks wird der Compu- 
ter gnadenlos zusammen- 


 gepoked. Registerwerte 


werden verändert, Ein- 
und Ausgabekanäle ver- 
bogen; selbst die System- 


 vektoren sind in diesen 


Fällen nicht heilig. Aller- 
dings kann es vorkom- 

men, daß eine unbedach- 
te Systemvektormanipu- 
lation den Rechner nahe 


an den Rand des Abstur- 


zes, wenn nicht noch wei- 

ter, bringt. 

- Um total vermanipulier- 
te Systemvektoradressen 

mittels eines Befehls oder 

Sprungs in ein Unterpro- 


gramm wieder funktions- . 


fähig zu machen, nutzt 
man RESTOR. Nach 
RESTOR entsprechen 


alle Systemvektoren wie- 


der den Daten nach An- 
‚schalten des Computers. 
Nach RESTOR ist das 
Carry-Flag des Prozessors 
gelöscht. | | 


Zeichen auf Bildschirm 
ausgeben . 
Einsprungadresse: 
$C72D/50989- 
Benutzte Register: 
Akkumulator. 


 Codebezeichnung: 


 BSOUTSCRN 


mann/V 


Fast jedes Maschinenpro- 
gramm muß interaktiv 


Daten auf den Bildschirm . 
schreiben und Daten von 
. der Tastatur einlesen. 


BSOUT SCRN ist die 
schnellste und einfachste 


. Methode, um einzelne 


Zeichen auf den Bild- 
schirm zu leiten. Das je- 
weilige Zeichen muß als 
Code-Wert im Akkumula- 
tor stehen. Die Ausgabe 
selbst ist am aktuellen 
CurSorstandpunkt. _ 
Zeichen aus CHKIN- 
definierter Datei lesen 
Einsprungadresse: 
$FFCF/65487 
Benutzte Register: 
Akkumulator. 
Codebezeichnung: 
BASIN 

Bevor man mit BASIN 
kontrollierte Zeichen 
aus einer Datei oder der 
Tastatur oder dem Bild- 
schirm einlesen kann, 
muß man die Lesequelle 
mit „Kanaleinlesenum- 
mer festlegen‘ = CHKIN, 


bestimmen. Danach liest 
BASIN beijedem 


Sprung das aktuelle Zei- 
chen der Lesequelle ein. | 


le ein. | 


Zeichen ausgeben 
Einsprungadresse: 
$FFD2/65490 

 Benutzte Register: 
Akkumulator. 
Codebezeichnung: 
BSOUT | 
BSOUT ist das logische 
Gegenstück zu „Zeichen 
aus CHKIN definierter 
Datei lesen‘ = BASIN. 
Das auszugebende Zei- 
chen muß vorher in den 
Akkumulator gelesen 
werden. | 
Ist als Ausgabekanal der 
Bildschirm definiert und 
möchte man den CBM- 
Code sehen, wird der 
ASCII-Akkumulatorwert 
‘in den entsprechenden 
CBM-Code-Wert umge- 
rechnet. Das Ausgabege- 
rät selbst ist zuvor mit 
CKOUT = „Kanalausga- 


benummer festlegen“ zu 
bestimmen. 


Fenstergröße lesen 
Einsprungadresse: 
$COOF/49167 
Benutzte Register: 
Akkumulator, X- und 


 Y-Register. 


Codebezeichnung: 
CROG | | 


Der Commodore 128 
stellt die Möglichkeit zur 
Verfügung, Textfenster 
zu definieren. Um zu wis- 
sen, welche Ausmaße das 
gerade aktuelle Fenster 
besitzt, springt man 


'SCORG an. Nach dem 


Ansprung findet man im 
X-Register die maximale 
Anzahl der zulässigen 
Spalten, im Y-Register in 
maximale Anzahl der Zei- 
len und im Akkumulator 
die gerade eingestellte 


“ Ausgabeart (40- oder 80- 


Zeichen-Ausgabe auf den 
Bildschirm). | 
| Sven Faulhaber 


Durben/Plenge/Löffel- 


üllers: 
Das große Grafikbuch 
zum C128. 


Düsseldorf: Verlag 


Data Becker. 
400 Seiten. 
ISBN 3-89011 -154-8. 


| 39 Mark. 


Nicht zuletzt (oder ge- 


rade wegen) seiner viel- 
gepriesenen Grafikeigen- 


. schaften haben sich die 
Autoren in diesem Buch 


recht ausgiebig mit dem 
C128 beschäftigt. 
Derjenige, der mit dem 
Handbuch gewappnet, 
sich die Grafik-Wunder- 


. welt seines 128ers er- 


schließen will, sollte dies 
schnell beiseite legen und 
sich in das Grafik-Buch 
vertiefen. 


Zunächst werden sämt- 


liche Grafikbefehle des 
BASIC 7.0 ausführlich 
anhand von Beispielpro- 
grammen erklärt. Nun 
weiß auch der Einstei- 
ger schon eine Menge 


mehr, als ihm das Hand- 


buch je hätte vermitteln. 
können. Hat er sich 
dann auch noch durch 
das recht umfangreiche 
Kapitel über den VIC- 
II-Chip für den 40-Zei- 
chen-Bildschirm hin- 
durchgearbeitet, fällt es 

. auch ihm nicht mehr 
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| g 
\.GRAFIK-Buch 


EIN DATA BECKER BUCH 


schwer, Bitmaps, Hires- 
Grafiken und Sprites zu. 
erstellen. | 


ALLES ÜBER DIE 
BEIDEN VIDEO-CHIPS 


Zur Definition eines in- 
dividuellen Zeichensat- 

zes können Sie einen kom- 
fortablen Editor, ge- 

nannt Char-Designer, ver- 
wenden (Sie müssen halt 
das Listing im Buch ab- 
tippen). Keine Angst: 

Auch die Anhänger des 
80-Zeichen-Bildmodus, 


der durch den anderen 


Videochip VDC 8563 
gesteuert wird, kommen 


- in keiner Weise zu kurz. 


 BBÜCHERKISTERM 


Neben einer ausführlichen E 
Beschreibung der einzel- 


nen Register (es sind ge- 

.nau 37) finden Sie auch 
hier einen Charakter-Ge- 
.nerator, der eine Zeichen- 
| satzänderung (etwa deut- 
sche Umlaute, Sonderzei- 
chen oder ähnliches) fast 
zum Kinderspiel werden 
läßt. 
Allerdings: Ein wenig Ein- 
tipparbeit muß auch hier 
sein (es sei denn, Sie be- 
stellen sich die Diskette 
zum Buch). 


_ VIELE LISTINGS 
ZUM ABTIPPEN 


Selbstverständlich fehlt 


es auch nicht an einer Be- 
schreibung, wie der 80- 
Zeichen-Screen in hoch- 
auflösende Grafik umge- 
schaltet werden kann. 

- Aber genug der. Grafik- 
Spielereien, jetzt wird’s 

“ ernst: Ab dem nächsten 
Kapitel wird vor allen 
Dingen auf die prakti- 
sche Anwendung solcher 
 Grafikmöglichkeiten ein- 
gegangen (wie Statistik- 


balken, Torten- und Säu- - 


lengrafik, Umsatzdia- 
'gramme). 
Interessante Beispielpro- 
gramme, die natürlich je- 
der nach seinem Gutdün- 
ken modifizieren kann, 
unterstreichen anschau- 
lich die vielfältigen An- 
.  wendungsarten. Sehr gut 
gelungen ist dem Auto- 
ren die Einführung in 
CAD mit dem Programm 
CAD System 128, einem 
Mal- und Zeichenpro- 
gramm zum Abtippen. 
Zu guter Letzt wird auch 
noch an die Assembler- 
Programmierer gedacht. 
Der Abschnitt über 
Extended Graphic 128 
(ebenfalls mit Listing 
- zum Abtippen), verdeut- 
licht recht eindrucksvoll, 
daß in Assembler ge- 
schriebene Programme 
eben doch immens schnel- 
„ler sind als dieselben Be- 
fehle im BASIC 7.0 
Fazit: Wer grafisch mehr 
aus seinem C128 machen 
_ möchte, sollte dieses Buch 
seiner Computerbiblio- 
thek einverleiben. Es ist 
in jedem guten Computer- 
shop erhältlich. 


hbU 


GRAFIK- 


PROGRAMMIERUNG 


6128 


Heimo PER | 


Grafikprogrammierung 


C128 


Haar: Verlag Markt 

& Technik. 

ISBN 3-89090-202-2. 
52 Mark inkl. Diskette. 


‚Die faszinierende Welt 


der Grafik zu erforschen 
ist das Anliegen dieses 
Buches. Kein Home- 


- Computer der Acht-Bit- 


Klasse von Commodore 


_ eignet sich besser dazu 
als der C128. 


Mit dem BASIC 7.0 die- 
ses Computers stehen 
dem Benutzer siebenund- 
zwanzig Anweisungen 
zur Verfügung, die sich 
speziell mit den grafi- 
schen Möglichkeiten im 
40-Zeichen-Modus be- : 
fassen. 


Der wichtigste wird auch 
sofort im ersten Kapitel 


behandelt: GRAPHIC. 
Was die einzelnen Modi 
bewirken, wie Sie die 


- Hires- oder Multicolor- 


grafik einschalten und 
wie sich sogenannte Split- 


.screens (Bildschirm, in 


Grafik- und Textdarstel- 
lung geteilt) erstellen las- 
sen. | 

Nicht minder wichtig für 


. die Darstellung anspre- 


chender Grafikbilder sind 
die Farbanweisungen 
mit COLOR. 


GEHEIMNISSE DES 


FARBSPEICHERS 


Umfassend wird der Farb- 


speicherbereich des Com- 
puters beschrieben, wel- 
che entsprechenden Byte 


'in ganz spezifischen Spei- 


cherstellen einzutragen 
sind, garniert mit kleinen 
Beispielprogrammen. 
Keine Angst, Sie brau- 


chen diese nicht abzutip- 
pen, sie befinden sich alle 


auf der Demo-Diskette, 
die dem Buch beiliegt. 
Anschauliche Grafiken 
verdeutlichen die Funk- 
tionsweise der Zeichen- 


 befehle wie DRAW, BOX, 


CIRCLE und PAINT. Wer 


‚bisher mit dem’ Befehl: 


SCALE nach, den Erläu- 
terungen im Handbuch _ 


gewisse Schwierigkeiten 


hatte, sollte die entspre- 
chenden Seiten darüber 
in diesem Buch lesen, 
dann dürfte alles klar 
sein. | 
Ein recht umfangreiches 
Kapitel widmet sichden 
beweglichen Objekten, 
die Sie mit dem C128 
darstellen können: 
Sprites und Shapes. . 
Nachdem Sie sich da 
durchgearbeitet haben, 
sollte es für Sie nur noch 
ein Kinderspiel sein, sol- 
che Kobolde über den 
Bildschirm flitzen zu 
lassen. 


JETZT WIRD'S - 
LEBENDIG: SPRITES- 


Damit der ‚‚intellektuelle 


- Touch“ nicht zu kurz 


kommt (das ist gewiß 
nicht ironisch gemeint), 
behandelt der Autor sehr 
ausführlich das Wesen der 
sogenannten Fractals und 


. Apfelmännchen, Grafiken 


im Multicolor-Modus, die 
mit einem sehr komplizier- 
ten Rechenprinzip arbei- 
ten und zu ihrer Fertig- 
stellung oft zehn Stunden 
und länger brauchen. 
Allerdings, wenn sie da- _ 
nach als fertiges Bild ab- 
gespeichert sind, können 
Sie in Nullkommanichts 
geladen werden und sich 
in ihrer ganzen Farben- 


_ vielfalt dem Betrachter 


räsentieren. 

ie Väter der Grafikdar- 
stellung mit dem C128, 
die Videochips VIC-H 
(40-Zeichen-Modus) und 


| VDC (80- Zeichen-Dar- 
| stellung) werden mit ih- 2 


ren wichtigsten Eigen- 
‚schaften vorgestellt, be- 
vor. sich das Buch mehr 
allgemeinen Fragen zum 
C128 widmet: (Speicher- 


 ‚aufteilung, Tastatur). 


Untermalt wird dieser 
Teil von vielen nützlichen 
Tips und Tricks, die für 
den Programmierer recht 
hilfreich sein können 
(Tastatur-Direktmodus, 
OLD- und MERGE-Rou- 
tine, Zeichensatzände- 


rung). 
Die abgedruckten Bei- 
spielprogramme dienen 


‘dem Leser lediglich dazu, 


den Programmablauf nach- 
zuvollziehen, jedes noch 
so kleine Listing ist auf 
der Diskette zum Buch 
abgespeichert, eine Tat- 
sache, die schon lobend 
hervorgehoben werden 
sollte. 


HILFREICHE TIPS 
UND TRICKS 


Wer mit dem Handbuch 
des C128 auf Kriegsfuß 
steht und trotzdem gerne 
Grafik programmieren , 
möchte, dem kann die- 
ses auch für den Anfän- 
ger verständliche Buch 
wärmstens empfohlen 
werden. 

Ein Wort zum Autor: 
Heimo Ponnath, Physiko- 
chemiker und freier Jour- 
nalist, weiß, wovon er 
spricht. Sein bereits eini- 


ge Jahre früher erschiene- 


nes Werk „Wunderland 

der Grafik im C64“ hat 
unter den Freaks dieses 
Computers viele Freunde _ 
gefunden. hbÜ 


128er | 


| Hotline: 
Mittwochs 15-19 Uhr 


_Tel.: 089/1298013 
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STARPAI NTER 128- 
ERSTES MAL- 


UND ZEICHENPROGRAMM 


FÜR DEN 128 


Für den Commodore 64 gibt's erstaunlich viele Grafiktools, mit denen 


man Bilder selbst per Joysticks entwerfen, sie „speichern oder zur Wei- 


terverarbeitung (oder auch nur zum Ansehen) wieder in den Computer 


laden kann. In den meisten Fällen lassen sich diese Grafiken auch noch 


schwarz auf weiß mit einem passenden Drucker zu Papier bringen. Leider 


haben alle einen kleinen Nachteil: sie laufen eben nur im C-64-Modus. 


‚grammen — Starpainter aus dem Sybex-Verlag, Düsseldorf. 


Nun, die Verkaufszahlen des Com- 
modore 128 haben die Software- 
Autoren Hansen und Sonnenschein 
sicher darüber nachdenken lassen, 
ob sich solch ein Grafikprogramm 
nicht auch für den C 128 verwirk- 
lichen ließe, und nun ist es fertig: 

Der Starpainter 128. (Übrigens bis 
jetzt das einzige professionelle Mal- 
und Zeichenprogramm für den gro- 
Ben Bruder des C 64.) 


_AUSGEZEICHNETES HAND- 
BUCH — DISKETTEN-KOPIER- 


ei PROGRAMM GRATIS 


geliefert, das sich sehr. wohl- 
tuend von anderen Erzeugnissen 
dieser Art abhebt. Es besteht 


nämlich nicht nur aus lauter Aus- 
drücken, die sowieso nur Freaks 
verstehen, sondern wendet sich 
auch speziell an die Anfänger 
und Computer-Neulinge. Wie man 
das Directory einer Diskette lädt, 
sollte man allerdings schon wis- 
sen .. Zum Arbeiten mit Star- 
painter 128 muß unbedingt eine 
Kopie als Arbeitsdiskette angelegt 
werden. Dazu dient ein relativ 


schnelles Kopierprogramm (nur drei 


Diskettenwechsel), das natürlich 
auch zum Vervielfältigen anderer 
- Disks verwendet werden kann. 
(Man kann es auch einzeln über 
den Sybex-Verlag beziehen!) Die 


_ Originaldisk des Malprogramms hat 


einen Schreibschutz, so daß sich 
schwerlich die vorher unbedingt 
notwendigen Installationen z. B. 
für den Drucker vornehmen ließen, 
ganz zu schweigen vom Abspei- 
Su von Bildern oder 


py 1541 landeten wir 


selbst- 


entworfenen Zeichensätzen ... Eine 
Macke hat das Software- Paket auf 
Disk allerdings, die wir nicht un- 
erwähnt lassen wollen: Beim „Boo- 


PROBLEME MIT DER FLOPPY . 


1541 


ten“ des Hauptprogrammes . von 
Disk unter Benutzung einer Flop- 
ständi 
beim Programmzählerstand (PC 
05 im eingebauten Maschinenspra- 
che-Monitor des C 128, wohin- 


gegen bei Verwendung einer Flop- 


py 1571 alles wunderbar klappte. 


| — Dabei war es völlig egal, ob wir 
_ Zum Software-Paket wird auch ein 
„gut dokumentiertes Handbuch mit- 


nun die Originaldisk oder die (wie 
oben besprochene) Arbeitskopie 
verwendeten. Vermutlich haben die 
Programmautoren hier das DOS 
der 1571 mit in den Ladevorgang 
einbezogen, ohne zu bedenken, 
daß es noch eine ganze Menge 
C-128-Besitzer gibt, die ihre gute 


alte Floppy 1541 nicht gleich beim 


Kauf des neuen Computers auf 
den Müll geschmissen haben (was 
unserer Meinun Bas: auch gar 
nicht nötig ist!),. Ins Hauptpro- 
gramm kommt man zwar trotz- 
dem, indem man vorher das 


File ‚‚Installation“ lädt und die 


dortigen Fragen zu Zeichenfarbe, 
Eingabegerät und Druckerparame- 
ter beantwortet, aber das Ganze 


immer wieder von Neuem vorher 


durchzuexerzieren, ist dann doch 
zu mühselig, vor allen Dingen, 


weil das File „Installation“ nach . 


der Einstellung durch den Benut- 
zer wieder so auf Disk zurückge- 
schrieben wird und künftig für 
den Betrieb von Starpainter gilt. 
Hier sollten sich die Programm- 
autoren nochmals dran setzen und 
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TESTO 


dies benutzerfreundlich gestalten, 
denn sicher wissen auch sie, daß 
es noch eine ganze Menge C-128- 
Fans gibt, die nur die Floppy 1541 
besitzen. Doch genug der harten 
Worte, es gibt auch (natürlich!) 
eine ganze Menge erLreuleer Sa- 

chen zu berichten. 5 


KEIN STUPIDES ZEICHEN- 
PROGRAMM 


Starpainter 128 ist kein ausschließ- 


liches Zeichenprogramm (und will 
Das gilt (oder besser gesagt: galt) auch für einen Hit unter diesen Pro- 


es auch gar nicht sein!), sondern 
eher eine sehr komfortable Grafik- 
hilfe mit anschließender Möglich- 
keit zur Ausgabe auf Drucker, wie 
es auch der Sinn z.B. von Textverar- 
beitungsprogrammen ist. Dies be- 
weist eine lange Liste von Druckern, 
die mit Starpainter 128 eingesetzt 
werden können. Man muß schon 
ein sehr exotisches Gerät besitzen, 


NAHEZU ALLE DRUCKER KOM- 
PATIBEL 


um mit dem Bildausdruck Pech zu 
haben. (In unserer Redaktion 
klappte es mit einem Mannesmann 
85, der Epson-kompatibel ist und 
mit einem Centronics-Interface be- 
trieben wird, tadellos.) 

Als „letzte Rettung‘ finden die 
bedauernswerten Besitzer eines 
nicht-kompatiblen Druckers die An- 
leitung für einen Treiber (in Assem- 
bler) im Anhang des Handbuchs. 

Wer Starpainter vom C 64 schon 
kennt, dem wird der Arbeitsbild- 
schirm, der nach dem Laden er- 
scheint, bestimmt bekannt vorkom- 


“men. Auch der Zeichenstift (durch 


einen Sprite erzeugt) ist derselbe 
geblieben. 

Mit den Angaben auf den Menue- 
leisten und den dazugehörigen Ta- 
sten lassen sich die Zeichenge- 
schwindigkeit des grafischen Cur- 
sors einstellen (er liegt immer an 
der Spitze des BIKUNG); der gerade 


FUNKTION IN DENE ESE 
AUFRUFEN 
zu bearbeitende Bildechimsus: 


schnitt auswählen, (acht gibts, zu- 
sammen ergeben sie einen Grafik- 
bildschirm von 640 x 712 Pixels 
Auflösung, auf dem Drucker ent-- 
spricht das einem DIN A4-Blatt). 


BTESTE 


m 


Aus einer Vielzahl von Füllmu- 


stern kann man — wenn’s soweit ist 
— die | 


sagen, was man jetzt zu tun ge- 


denkt: freihändig per Joystick oder. 
- Maus zeichnen, Linien ziehen oder 
 Rechtecke bzw. Kreise entwerfen 2 


. (auch Ellipsen sind möglich!) 


. Eine weitere Funktion des Star- 


painter, die sich wohltuend von ver- 
gleichbaren Grafiktools abhebt, ist 
die Anzeige der gerade aktuellen 
ei horizontalen und 


. MASS MABGERECHTES. 
ZEICHNEN 


vertikalen Position des Grafikcur- 
Ein 


sors, sprich Zeichenstifts. 
 maßstabsgerechter Entwurf techni- 
scher Zeichnungen z.B. läßt sich so 
spielend verwirklichen. Man kann 
sich so eine eigene Straßenkarte 


entwerfen oder sein künftiges Haus 


bereits am Bildschirm bauen (auf 
einen Architekten wird man aber 
trotzdem nicht verzichten kön- 
nen...) 


SEFEHLSEINGABE PER TASTA- 
TUR, JOYSTICK ODER MAUS 


Tasten, die mit eigenen Funktionen 
‚ belegt sind, erleichtern das Arbeiten 
mit diesem _ Programm. So läßt sich 
beispielsweise eine Befehlsübersicht 
. jederzeit aufrufen („welche Taste 
muß man doch gleich wieder drük- 
ken, um Kreise zu zeichnen... ?“), 
das Directory kann auf Wunsch an- 
gezeigt werden, HELP hat eine 

UNDO-Funktion, d.h., daß der zu- 
letzt gewählte Modus 'wieder rück- 


. gängig gemacht wird, mit der ESC- 


' Taste kommt man aus den Unter- 
menues wieder heraus. | 

Grafiken sollten aussagefähig 
sein, in Bild und Wort. (Für Sta- 


- tistiken 0.8.) Starpainter 128 be- - 


nützt dazu die deutsche Tastaturbe- 
legung (sie gilt auch bei den guten 


2 ZAWRITE), somit. 


DEUTSCHE TASTATUR ZURBE- 
SCHRIFTUNG DER GRAFIK 


‚lassen sich alle Umlaute und Son- 


 derzeichen auf dem Grafikbild dar- 
stellen. Wem das nicht ausreicht, 


Bu jassenden aussuchen, und 
letztendlich dem C 128. eigentlich 


EIGENE ZEICHEN ODER MU- 
STER MÖGLICH r 


Textverarbeitungsprogrammen für 
den 128er, wie SV-Text oder VI- 


der kann sich von Diskette andere 
Zeichensätze nachladen oder mit 
dem Zeichen-Editor, den das Pro- 
gramm ebenfalls bereit stellt, indi- 
viduelle basteln, die man dann na- 
türlich auch abspeichern kann. 


Weil wir gerade beim Thema 
„Editor“ sind: das ist nicht der ein- 
zige, den Starpainter 128 zur Ver- 
fügung stellt. Da ist beispielsweise 


‘der Sprite-Editor. Jetzt werden vie- 
le sagen, wieso denn, der C 128 


bringt doch schon von Haus aus 


einen mit. Richtig, aber der ist mit 
dem Komfort des Sprite-Editors 


von Starpainter nicht zu verglei- 
chen. Der kann einiges mehr: .Das 


SPRITE- EDITOR IN LUXUSAUS- 
FÜHRUNG 


lich nicht: Irgendwelche F lächen : 
mit den 16 Farben, die dem C 128 

zur Verfügung stehen, auszufüllen. 
Lediglich die Farbe des Zeichenhin- 
tergrundes (= Zeichenblatt) und die 
der Striche und Linien (die der Blei- 
stift malt) lassen sich ‚beliebig an- 


passen. 


_DRUCKERFREUNDLICH 


Was zunächst als Manko erscheint, 
stellt sich spätestens bei der Druk- 
ker-Ausgabe des Bildes als wöhl- 
überlegt heraus. Verschiedene Far- 
ben auf dem Bildschirm sind noch 


lange nicht auf einem Schwarz-Weiß- 


Drucker (und um den geht es hier) 
verschieden. Der stellt nämlich jede 
Farbe mit derselben Bitkombina- 


tion, wie sie die Zeichenfarbe (Co- 
lor 1) hat, — egal ob rot, blau, grün 


— immer als Schwarzes Pixel auf 


dem Papier dar. Im Multicolor-Mo- 


dus ist das etwas anderes, weil hier 


‚die Bitbelegung für Zeichenfarbe, 


Multicolorfarbe 1 oder 2 anders 
aufgeteilt ist, so daß sich beim Aus 
druck ein in gewisser Weise schat- 
tiertes Bild ergibt, aber Starpainter 
128 ist nun mal ein Programm, das 


mit der hochauflösenden Grafik 2 


arbeitet (Hires-Modus). 
1. wird damit ein feineres, genau- 


- eres Zeichnen erreicht und 


kann nämlich einiges "mehr: das 
Sprite läßt sich Be in alle 
Richtungen verschieben, man kann 
es invertieren (N egativ-Darstellung), 
es läßt sich im Uhrzeigersinn jeweils 
um 90 Grad drehen, spiegeln oder 
ganz auf den Kopf stellen. 

Der Zoom-Editor vergrößert be- 


stimmte Ausschnitte (Shapes) einer 


Grafik, um diesen dann in Filigran- 
manier zu bearbeiten (wie durch ein 


Vergrößerungsglas) und zu guter 
. Letzt bietet das Programm auch ei- 


nen Muster-Editor, der die Mög- 


2. ist es dem Starpainter nur in 


diesem Modus möglich, ein ganzes eo. 


DIN-A-4-Blatt ausdrucken zu lassen 


(das ist dann nämlich die Zusam- 


menfassung der einzelnen Bild- 
schirme, die durch die Menuefunk- 


tion Fenster bereitgestellt werden). 


SEINEN PREIS WERT 


Auf einen Nenner gebracht: Star- 


painter 128 ist die konsequente 


Umsetzung des gleichen Programms 


für den Commodore 64, um es für 


‘seinen großen Bruder kompatibel 


(wir Haben dieses bereits bespro- 


chen) zu entwerfen. Man könnte 


zwar annehmen, daß die von den 


'Programmautoren entworfenen ei- 
gentlich ausreichen, um einem Bild 
„unterschiedliche Schattierungen zur 


Belebung der ganzen Grafik zu ge- 


ben, aber bitte, die Möglichkeit 


besteht! 
‚Eines kann Starpainter 128 näm- 
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zu machen. Es läßt sich einfach und 
sehr komfortabel. bedienen, groß- 


mächtige Computerkenntnisse sind 
nicht erforderlich. (Wie man das Di- 


rectory lädt und ein Programm starr 


tet, sollte man allerdings schon wi- 
sen!). Einen dicken Pluspunkt ver- 
dient das ausgezeichnete Handbuch, 
das sich sehr verständlich ausdrückt. 


Gemessen an dem, was Starpain- 


ter 128 leistet, erscheint uns der 


Preis des Software-Pakets von DM 


75,— nicht zu hoch. Erhältlich in je- 


_ dem guten Fachgeschäft. (hb) 


cPm PLus 


Das dritte ER 
Betri ebssystem 


ter-,Kollegen“ umhören, 
erfreut sich dieses Pro- 


Mit großen Vorschußlorbeeren ausgestattet, 
macht doch kaum ein C128-Benutzer Gebrauch da- 
von: CP/M, gesteuert vom a 280. 


Stellen wir Zunächst die 
Kardinalsfrage: Wozu 
dient überhaupt ein Be- 
 triebssystem? Schließ- 
lich und endlich braucht 
einer den C128 nur ein- 
zuschalten, und schon 
meldet sich der Cursor 


mit READY und wartet 


auf die Eingaben. Und 
genau das ist der Kern- 
punkt. Ein Computer, 
egal, wie er heißen mag, 
_ besteht nicht nur aus 
Tastatur und Zentralein- 
heit (CPU), sondern aus 


mehreren Prozessoren. 


wie etwa den Ein-/Aus-. 
gabe-Bausteinen, Video- 
‚chips, J oystickanschluß, 
Dis ar User- 
' port usw. 
Ein Betriebssystem küm- 
_ mert sich nun darum, daß 
der Anwender oder Pro- 
-  grammierer recht einfach 
auf diese genannte ‚‚Um- 
gebung“ (Peripherie) 


des Computers zugreifen 


‚kann. In der Regel ist es 
bei Homecomputern (wie 
der C128) so, daß jeder 
Rechner sein eigenes, 
meist zum Betrieb mit 

BASIC zugeschnittenes 
Betriebssystem mitbringt, 
das bereits fest eingebaut 
ist. (Drum ist es nach 
dem Einschalten auch 
präsent.) 


Allerdings gibt’s ‚schon bei 


- den diversen Homecom- 
 puter-Typen ein und der- 
selben Hersteller-Firma 
erhebliche Unterschiede - 
bei den BASIC-Dialekten, 
noch schlimmer wird es, 
wenn Sie beispielsweise 
ein auf dem C64 geschrie- 
benes Maschinenpro- 
gramm im C128 betrei- 
ben möchten. Nicht, daß 
die Assemblercodes : an- 
ders wären, nein, essind _ 
genau dieselben — aber 


die Adressen der System- 


Routinen stimmen bis auf 
ganz wenige Ausnahmen . 


nicht EN Fazit: Oh- 


ne großmächtige Ände- 
rungen läßt sich kaum 
ein BASIC-Programm 
von einem C128 aufden 
C64 übertragen, und ein 
Assemblerprogramm | 
auch nur dann, wenn Sie, 
grob gesagt, jede zweite 
Adresse ihrer Bestim- 
mung entsprechend an- 
passen. 


UNIVERSELL 


SOLLTE ES SEIN 


CP/M dagegen wurde zu . 
dem Zweck entwickelt, 


eine gemeinsame Pro- 
grammierumgebung für 


_ die unterschiedlichsten 
Maschinen nicht nur des- 


selben, sondern sogar 
verschiedener Hersteller 
zu ermöglichen. Daß die- 
ser Versuch erfolgreich 
war, beweist die Tatsa- 
che, daß etwa 250 unter- 
schiedliche Computerty- 


- pen mit CP/M arbeiten 


können. Eine Standardi- 
sierung also. | 
Einige Grundkenntnisse 
dürfen wir voraussetzen: 
wie man erfährt, welche 


Dateien sich auf der Dis- 


kette befinden (DIR), 


wie kopiert wird (PIP) 


oder wie Dateien umbe- 
nannt werden. Auch 


SUBMIT — 
DER STAPLER 


wenn das Handbuch zur 
CP/M-Version 3.0 (wird. 
beim Kauf eines C128 

. gratis mitgeliefert) für 


manche als ‚„Witzblatt““ 
empfunden wird, das alles 
steht da doch drin. 

Drum möchten wir uns 


. mit diesen allgemeinen 


Dingen auch nicht aufhal- 
ten, sondern Ihnen viel- 
mehr Tips geben, wie Sie 
mit CP/M effektiv arbei- 


. ten können. 


mens SUB 
pelverarbeitung unter 


Zum Beispiel existiert da 
. ein Dienstprogramm na- 


IT, das Sta- 


CP/M zuläßt. Wenn Sie 
sich aber unter Compu- 


gramm keineswegs der 
Beliebtheit. die seinem 
Leistungsumfang ange- 
messen wäre. | 
Wie Sie wissen, werden 
CP/M-Befehle in der 
Kommando-Zeile (Com- 
mand Line) editiert, also 
eingegeben und durch 
Druck auf die RETURN- 
Taste (sie wird ENTER 
genannt) zur Ausführung 
gebracht. Erst wenn so 
eine Ausführung zuende 
ist, können Sie den näch- 


sten Befehl eintippen. 


SUBMIT bietet nun die 
Möglichkeit, Komman- 
dos hübsch der Reihe 
nach aus einer Textdatei 
zu lesen und abzuarbei- 
ten. | 
Wenn’s auch noch so | 
schön klingt, beim ersten 
Ausprobieren wird’s zum 
echten Ärgernis: Die 
Möglichkeit, eine Textda- 


tei zu erstellen, ist sehr 


schlecht beschrieben. Es 
wird auf den Editor ED 
verwiesen. Die Arbeit mit 


diesem Programm ver- 


langt in etwa die Senti- 
mentalität eines Museums- 
direktors, der seine Paß- 
bilder mit minutenlan- 
gem Stillsitzen und Ab- 
brennen von Magnesium 


erstellen will (statt ein 
Blitzlicht zu benutzen). 


Auch für aufgeschlossene 
Computer-Freaks ist ED 
ein echtes Rätselpro- 


- gramm, auf das wir hier 


nicht näher eingehen wol- 


. len; vorzuziehen ist die 


Erstellung von Texten 
mit PIP. Natürlich ist 
auch die Arbeit damit 


umständlich, aber wesent- 
lich leichter zu erlernen 


als ED. Außerdem neh- 
men wir doch an, daß je- 
der, der ernsthaft mit _ 
CP/M arbeiten will, sich 
über kurz oder lang einen 
Editor oder ein Textver- 


 arbeitungsprogramm an- 
. „schafft, um etwas um- 
| fangreichere Texte zu er- 


stellen. 
PIP ist eigentlich ein 
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_ 


Dienstprogramm zum 1 Ko- | 


pieren von Dateien unter 
CP/M. | 
Neben den tatsächlichen & 


‘Dateien auf Diskette _ 
“ kennt CP/M aber auch sO- 
. genannte „logische“ Da- 


teien wie Tastatur, Druk- 
ker oder die V24-Schnitt- 
stelle. | 
Manche dieser „Dateien“ 


eignen sich nur zumlLe- 
. sen, wie’s beispielsweise 


bei der Tastatur der Fall 
ist. 
Demnach ist unser: Wunsch, 


PIP ALS TEXTEDITOR 


per Tastendruck eine 


- Textdatei auf Diskette zu 


erzeugen, nichts anderes 
als ein Kopieren von der 
Tastatur auf eine Disket- 
tendatei mit einem von 
uns gewählten Dateina- 
men 


"Rufen wir also PIP auf: 


A> PIP, das Programm 
meldet sich mit dem be- 
kannten Sternchen , „ar“ 


und wartet auf eine. ‘An- 


weisung. Nehmen wir mal 
an, unser erster Versuch 
soll TEST.TXT heißen, 
die logische Datei, die wir 


| lesen wollen, ist die Tasta- 


tur, im CP/M- Sprachge- 
brauch „CON“ genannt 
(von „Console“). Die An- 
weisung an PIP sieht dann 
so aus: 


*A:TEXT.TXT=CON: 


(RETURN/ENTER- 
Taste drücken) 

(Den Stern am Zeilenan- 
fang nicht nochmals ein- 
tippen, das a vom 
Aufruf von PIP ') 

Der Cursor rückt in die 
nächste Zeile. Nun könn- 
ten wir eintippen: 


. “DIES IST EIN 


TESTTEXT.“ | 
Drücken wir jetzt ENTER, 


‘wandert der Cursor zum 


Zeilenbeginn. So war das 
aber nicht gedacht, 
schließlich wollten wir ja 
mehrere Zeilen erstellen. 


Das Rätsel ist jedoch 


schnell gelöst: RETURN 
oder ENTER hat den Ta- 
stencode 13 (wie in 
BASIC); physikalisch be- 
wirkt unter CP/M dieses. 
Zeichen nur einen Wagen- 


. rücklauf (CR = Carriage 


Return), nicht. aber noch 


zusätzlich einen Zeilen- 


vorschub (LF=Line 
Feed). (In BASIC ist auch 
der dabei.) 
Diesen „Line Feed“, Code 
10, können wir durch | 
CTRL-J erzwingen; nun 
steht der Cursor da, wo 
wir ihn haben möchten: 
Am Anfang der nächsten 
Zeile. | 
Weitere wichtige ‚Steuer- 
- zeichen mit Hilfe der 
| CONTROL-Taste finden 
Sie in einer Tabelle zu 
diesem Artikel, vor allem, 


wenn sich einer vertippt 


 _ RANAN CP/M! 


hat, muß er ja mit dem 
Cursor auch innerhalb 
der Zeilen wandern kön- 
nen (wie beim komfor- 
tablen Bildschirmeditor 
des C128 bei BASIC- 
Betrieb). _ 
Nachdem wir so einen 
kleinen Text eingegeben 
haben, sollte uns PIPden. 
. natürlich auch auf Dis- 
kette schreiben. Seien Sie 
bitte aber nicht zu über- 
eifrig: Wenn Sie mit | 
CTRL-C den Editiermo- 
dus verlassen haben, 
werden Sie vergeblich 
nach der Datei TEXT. 
TXT suchen. PIP glaubt 
nun, Sie hätten einen Feh- 
ler gemacht und das Pro- 
gramm dadurch mit 
CTRL-C abgebrochen. 
Dann einen (falsch) edi- 
tierten Text abzuspei- 
‘ chern, ist CP/M doch zu 
dumm. 


ZUM ABSCHLUSS 
CTRL-Z DRÜCKEN . 


Da die Console (CON:) 
als Textdatei angespro- 
chen wird, sucht PIP 

stets nach dem Zeichen 
EOF (End of File = File- 
Ende), das unter CP/M 
den Code 26 besitzt. Erst 
wenn dieser Code erkannt 
wird, schließt CP/M die _ 
Datei CON: und Zeichen 


für Zeichen einschließ- 


lich des EOF wird als > 
neue Datei TEXT.TXT auf 
die Diskette geschrieben. 
Dieses EOF erreichen Sie 
mit CTIRL-Z. 

Also, daran denken: Ei- 
nen mit PIP erstellten 
Text beliebiger Länge nur 
mit CTRL-Z abschließen 
und PIP verlassen. Falls 


Sie nicht 


zur 


lauben, daß: es 
geklappt hat, tippen Sie 
‚ontrolle ein... 


TYPE | TEXT.TXT 


(ENTER-Taste) 


Sie können erkennen, daß 
PIP auch die CTRL-Codes 
mit in die Datei über- 

nimmt; T YPE ist so etwas 


_ wie ein LIST-Befehl; bei 
der Bildschirmausgabe 
werden diese Codes je- 


doch wieder neu interpre- 
tiert, so daß Sie den Text 
so sehen, wie Sie ihn ha- 
ben wollten. | 


Mit diesen ersten ‚„fundier- 


ten‘ Kenntnissen möch- 
ten wir uns nun endlich 
daran machen, die erste 
SUBMIT-Befehlsdatei zu 
erstellen. Um bei Auf- 
ruf von SUBMIT 

nicht stets diese sechs 
Buchstaben eintippen zu 


. müssen — wer arbeitet 


Das Ken ee 
wieder: 


PIP(ENTER) 
»DO.COM=SUBMIT. 


er (ENTER) 


Schreiben wir uns doch 
mal eine Befehlsdatei, 
die den freien Disketten- 
platz und die auf Disk 
en Dateien 


gibt: 
_ *INFO.SUB=CON: 


(ENTER) 
(Achtung: Niemals den 
Filenamen-Zusatz ‚SUB“ 
vergessen, sonst kommt 
SUBMIT/DO nicht da- 
mit zurecht!) 
Der Eingabetext für die 
zu basteinde Datei sieht 
dann so aus: 


SHOW.A: 
DIR.A: 


Nach CTRL-Z können wir 
PIP verlassen und mit 


- DO INFO (den Zusatz 


„SUB“ brauchen Sie jetzt 
wiederum nicht mehr an- 


WICHTIGE EDITIER- UND 
STEUERZEICHEN BEI CP/M 


Tastenbefehl 


Funktion 


Cursor ein Zeichen nach links 
Programmabbruch | 
Zeilenvorschub ohne ENTER- 
Taste (Line Feed) 
Cursor ein Zeichen nach rechts 
Löscht das Zeichen, auf dem. 
.. der Cursor steht 
Löscht das Zeichen links neben 
dem Cursor 
Enter-Funktion 
Gesamte letzte Zeile wird 


- wiederholt 


EOF, Dateiendekennzeichen | 
| (End of File 


schon gerne unnötig — 
legen wir uns eine Kopie 
vom File SUBMIT.COM 
namens DO.COM an. 
Jetzt stellt sich der Auf- 
ruf als ‚DO‘ dar, das 
sind immerhin vier 
Buchstaben weniger, bei 
1000 Aufrufen sind das 
4000 Tastendrucke 


weniger, bei 10000 


dann.. 


. (Scherz bei- 
seite). | | 


zugeben, denn nun liegter 


ja bereits vor und wird 
automatisch von CP/M 
angehängt) wird unser 
erstes Programm, ein so- 
enanntes „BATCH“- | 
rogramm ausgeführt. 
Sollte CP/M Fehlörmel: 
dungen ausgeben, so ist 
ein solcher leicht zu fin- 
den: Bevor SUBMIT ei- 
nen Befehl aus der Datei 
ausführt, wird die ent- 
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satz ..$$ | 
-aus dieser werden die ei-  : 
gentlichen Befehle a “; 


ERREGER j 


sprechende Zeile auf dem 
Bildschirm ausgegeben, _ 


Tippfehler lassen sich das i | 


durch leicht erkennen. 


-- Maschinenintern wird bei_ 


der Abarbeitung dieser 


Befehlsdatei eine Zwi- 


schendatei mit dem Zu- 
$ erzeugt; erst: 


lesen und ausgeführt. nr 
Warum so umständlich? 
Das liegt an einem weite- 
ren Vorteil von SUBMIT. 


Es besteht die Möglich- 


BATCH- DATEI EN. 


| keit, automatisch Platz- 


halter zu ersetzen. 
Platzhalter sind dazu da, 
Wörter, die beim Aufruf | 
von SUBMIT/DO i inder . 
Kommandozeile hinter 
dem Namen der Befehls- 
datei stehen, in dieselbe 
einzufügen — und dazu 
braucht CP/M eben die 
Zwischendatei, um die 
„echte‘“ Batch-Datei : 


‚nicht zu zerstören. Stel- 


len, an denen Ersetzun- 
gen vorgenommen wer- 
den sollen, werden mit 
dem Dollarzeichen und 
einer Zahl angegeben: 
Die Zahl bedeutet hierbei 
die Nummer, an deren 
Stelle in der Parameter- 
liste das betreffende Ar- 
gument erwartet wird. 
Klingt kompliziert, 
stimmt’s? Ist es aber gar 
nicht. | 

Nehmen wir einmalan, 
wir haben DO mit folgen- 


. der Zeile aufgerufen: 


DO .INFO*.COM#*.DTA 


DO ruft SUBMIT auf. 


(Wir haben es ja unter die- 


sem neuen Namen ko- 
_piert.) INFO ist die Datei, 
in der die Befehle stehen, 


*.COM ist Argument 1, 
*.DTA ist Argument > 
Sollte in der Datei INFO. 
SUB nun irgendwo ‘““$1‘“ 
stehen, ersetzt DO jede 
Stelle, an der $1 steht, 
durch das vorhandene Ar- 


gument “«.COM“. Ent- 


sprechend werden alle 
2-Platzhalter durch 
“&.DTA“ ersetzt. Ist kein 
Argument angegeben, 
werden die Platzhalter 


TIPS 3 TRICKSEI 


durch Leerzeichen ersetzt. 


Das nämliche gilt für den 
- Fall, daß weniger Argu-. 
mente angegeben werden, 


als Platzhalter in der Be- 


fehlsdatei angefordert 
wurden: auch hier wer- 
den einfach Leerzeichen 


‚eingesetzt. Um die Funk- 
tion auszutesten, schrei- 


ben wir uns am besten ei- 
ne neue ‚„‚Batch“-Datei 
| namens INFO2. SUB: 


SHOW.A: 
_ DIR.A:SI 
TYPE ®2 


Wie sieht es nun aus, 
wenn sie abgearbeitet 
wird? 

Aufruf: 

- DO INFO2«*. TXT 

- INFO2.SUB 
Zwischendatei: 
SHOW.A: 
DIR.A:*.TXT 

TYPE INFO2. SUB 
Resultat: 

Diskettenplatz auf A: 
wird angezeigt, alle Da- 
‚teien mit Zusatz .TXT 
“werden angezeigt und der 


“ Inhalt von INFO2.SUB 


auf dem Bildschirm aus- 
gedruckt. Der Aufruf 
DO INFO2 verhält sich 
dagegen genau wie das 

- Programm DO INFO: Da 
DIR ohne Parameter 
bleibt, werden alle Da- 
teien angezeigt, und 
TYPE ohne Argument 
macht überhaupt nichts. 
Die mögliche Anzahl der 
Argumente/Platzhalter ist 
mit insgesamt 10 übri- 
 gens völlig ausreichend, 
bedenken Sie dabei je- 
doch, daß der Compu- 
ter bei , ‚Null‘ zu zählen 
beginnt: "SO bis S9. 


_ _ CP/M UND PASSWORT 
Oft wurde die Frage ge- 


stellt, welchen prakti- 
schen Sinn die von CP/M 


angebotenen Möglichkei-. 


ten der Definition von 
Paßwörtern, geschützten 
Dateien, Benutzerberei- 
chen usw. haben sollen. 
Ganz ehrlich: Beim 128 
PC überhaupt keinen! 
Alle diese Utilities 
wurden entwickelt, als 
CP/M als ein für die 
damalige Zeit sehr lei- 
stungsfähiges Betriebs- 


system überwiegend im 


geschäftlichen Bereich 


eingesetzt wurde. Ein ein- 
ziger Computer stand da 
für viele Benutzer zum 
Beispiel in einer Firma 
zur Verfügung, die Mas- 


 senspeicher waren Win- 


chester-Laufwerke oder 


‚Festplatten mit 20 und 


mehr Megabyte Kapazi- 
tät. Um diese große Da-- 
tenmenge zu verwalten, 

war es erforderlich, den 


zur Verfügung stehenden - 


Platz für mehrere Benut- 
zer aufzuteilen, damit je- 
der so arbeiten 'konnte, 
als habe er seine eigene 
Festplatte mit vielleicht 
nur einem oder zwei-Me- 
gabyte..Da sollte natür- 


nn nme ee en ur ee er nennen 


lich der Kollege aus einer 


“ anderen Abteilung oder 


eines fremden Ressorts 
tunlichst seine Nase aus 
den Dateien lassen. 

Für den Privatbereich zu 
Hause und den Betrieb 
einer oder zwei Disket- 
tenstationen brauchen 
keine Paßwörter oder Be- 
nutzerbereiche festgelegt 
werden; schneller ist ei- 
ne Diskette gewechselt 
und unter Verschluß ge- 
bracht als ein Babworl 
BET 


RMAC UND LINK 


CP/M Plus bietet auch 


Programmierwerkzeug an: 


Da gibt es den Macro- 
Assembler RMAC und. 
den dazugehörigen Lin- 


- ker LINK. Wer als Pro- 


grammierer mit Compiler- 
sprachen arbeitet (Pascal, 
C) wird feststellen, daß 
auch einem Compiler 
nicht immer alles möglich 
ist. Manch einer möchte 
sich eine Assembler-Rou- 


tine auch selbst schreiben. 


Dann freut sich der um 


‚so mehr, ein entsprechen- 
‘des Werkzeug zur Hand 


zu haben, das dazu noch 
so weit verbreitet ist, daß 
die meisten Compiler die 
Option besitzen, mit 
RMAC geschriebene Rou- 
tinen direkt mit einbin- 
den zukönnen. 

Die Bedienung ist wirk- 
lich einfach. Tippen Sie 
doch das kleine Bei- 
spielprogramm ab, es 


Mit DIR TEST.* verge- 
‘ wissern wir uns, daß ein 
Programm TEST.COM . 


ist in der 8080-Assembler- 
sprache geschrieben; Spe- 


zialisten werden wissen, 
daß der im 128 PC einge- 


- baute Z80-Prozessor kom- 


patibel zum INTEL 8080 
ist, aber noch ein paar 
Befehle mehr versteht. 
Dieses kleine Programm 
muß jetzt in Maschinen- 
sprache, den ‚‚Object- 
Code‘“, umgesetzt wer- 
den. Dazu rufen wirden 
Assembler RMAC auf. 
RMAC erzeugt noch kei- 
ne richtige Maschinen- 


' sprache, sondern eine Da- 


tei, in der eventuelle ex- 
terne Adressen, Makros 


USW. freigelassen werden. 


So eine Datei trägt den 
Zusatz “.REL“ für ‚‚rela- 
tivierbar‘‘. Daneben wird 
ein Übersetzungsproto- 
koll mit dem erzeugten 
Code erstellt; in der Re- 
gel wird so ein Protokoll 
ausgedruckt, daher ent- 
hält es den Zusatz 

“ PRN“ (Printer). 

Die Namen für die Da- 
teien können wir expli- 
zit vorschreiben: 

RMAC FILEI, FILE2= 


- FILE3 erzeugt FILE. 


REL und FILE2.PRN 

aus der Datei mit Assem- 

blercode FILE3.ASM, wo- 

bei .ASM als Zusatz vor- 

geschrieben ist. Überset- 

zen wir also unser Pro- 
gramm: 

TEST. ASM 

ar TEST,PFILE 


Wenn Sie sich nicht ver- 
tippt haben, wird ord- 
nungsgemäß übersetzt 


und kein Fehler gemel- 


det. Falls Sie keine PRN- 
Datei brauchen, dann las- 
sen Sie einfach diesen - 
Parameter weg. 

RMAC REFILE,=TEST 
Nun kommt noch das 
„Binden“ (Linken). Da 
wir nur eine REL-Datei 
linken müssen, genügt: 
LINK TEST 


auf Diskette existiert; mit 
TEST wird es aufgerufen. 
Und schon haben Sie Ihr 
erstes Assembler-Pro- 
gramm unter CP/M ge- 
schrieben. 

Wer tiefer in CP/M ein- 
steigen möchte: Eine emp- 
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fehlenswerte ER N, | 
da auch in deutscher Über- 
setzung vorliegend, ist 


' Rodney Zak’s „Einfüh- 


rung in CP/M“ (Sybex- 
Verlag, Düsseldorf). _ 
Last not least kommt 
schließlich noch das Pro- 


gramm LIB.COM ins 


Spiel, mit dessen Hilfe Sie 
bequem auch große Men- 


‚gen bereits übersetzter 


Assembler-Programme ver- 
walten können (LIB 


"kommt von „Library“). 


Auch hier möchten wir 
Sie auf weiterführende 
Literatur verweisen 
(CP/M User’s Guide usw.). 


CP/M UND 
HOCHSPRACHEN 


| Programmieren in Assem- . 


bler ist zwar die hohe. 
Kunst, doch existiert für 
CP/M eine derartige Fül- 
le von Compilern, daß 


‚selbst für den eingefleisch- 
ten „Puristen‘ und Ge- 


schwindigkeitsfanatiker 
95% der Software von 
einer Hochsprache zu 
realisieren ist. 

Auch sollten Sie beachten, 
daß Programme, die in 
Assembler erstellt wurden, 
beim Um- oder Aufstieg 
beispielsweise zum Amiga 
nur noch fürs Archiv tau- 
gen; Pascal-Programme 
dagegen sind meist inner- 
halb weniger Stunden 
übertragen, bei strikter . 
Einhaltung der Konven- 
tionen sogar innerhalb 
weniger Minuten. 


BASIC a 
Die wichtigsten CP/M- 
Vertreter dieser Sprache 
sind CBASIC und 
MBASIC; letzteres ist 
recht preiswert (ca. 200 
Mark) und bietet neben 
einem Compiler auch 
noch einen Interpreter 
sowie einen Makro-Assem- 
bler, M80, den Linker 
L8O und ein Bibliotheks- 


 Utility-Programm namens 


LIB80. Vorteil: Sie kön- 
nen mit Z80-Maschinen- 
sprache arbeiten, außer- 
dem ist MBASIC ein über- 
aus „kompatibles“ BA- 
SIC, das auch unter MS- 
DOS (das gebräuchlichste 
Betriebssystem der gro- 
ßen PC-Rechner) sowie _ 


ee, 


BTIPS & TRICKSE 


mit Finschrähkungen auch dieser Sprache. dBase III 


dem AmigaBASIC 


PASCAL | 
Unbestrittene Nummer 
eins ist hier Turbo Pascal; 


komfortabel in der Pro- 


grammentwicklung, bil- 


dig zu erstehen und auch 


sehr portabilitätsfreund- 


- lich, also auf andere Com- 


puter übertragbar, da es 
den Pascal-Standard wei- 
testgehend einhält. Preis: 
Bei knapp 200 Mark. 
Nicht zu verachten ist 
aber auch Nevada Pascal, 


insbesondere, wenn Sie _ 


viele Assembler einbin- 
den möchten. In der 
„Public-Domain“-Version 
(= frei verfügbare Soft- 
ware für jeden, SIG/M 

Nr. 82 als ‚„JRT-Pascal‘‘) 
kostet es mit Assembler, 
Linker, Debugger (=,‚Feh- 


ler-Entwanzer‘ ) und vie- 


len Hilfsprogrammen ab 
zehn Mark und entspricht 
ebenfalls dem Standard. 


Bei dem Preis ist aller- 
dings kein Handbuch und 


kein Editor dabei... 


-_ FORTRAN/COBOL 


Diese Sprachen unter 
CP/M sind wohl in der 
Hauptsache für denjeni- 
gen interessant, der sie 


ohnehin schon beherrscht. 


Von Nevada gibt es beide 
zu einem Preis v von etwa 


. 100 Mark. 


FORTH j 

Für alle Fans dieser Com- 
putersprache dürfte ein 
dickes Software-Paket 
ebenfalls aus der ‚Pub- 
lic Domain“ (SIG/M Nr. 
204, FORTHB83) sein: 


| Multitasking-Simulation 


(der Computer kann meh- 
rere Aufgaben zur glei- 
chen Zeit ausführen), 
rieisger Sprachumfang. 
Fast 600 KByte Daten, 
Infos, Prögramme, Doku- 


mentationen _ kurz, ein 


Paket, das alle Wünsche 
erfüllt. Es ist ebenso wie 


JRT-Pascal schon ab 


zehn Mark erhältlich. 


Wenn Sie die COMMO- 
DORE DISC 17 aufmerk- 
sam gelesen haben, wis- 
sen Sie bereits um die 
grandiosen Vorzüge 


.BDS-C und C80 


zahl Programme, auch 


erstellt worden. Leider ist 
esin Europa bislang kaum 


gehend erfüllt ist, können 


Domain; zum Kennenler-- 


„nicht verwenden können. 


a 


eine größere Ausgabe für 
ein komfortables ‚„‚C*- 
Programm tätigen, um 
dann festzustellen, daß 
Ihnen diese Sprache doch 

. nicht so behagt. ; 
Übrigens: Die ‚‚professio- 
nelle‘‘ Version, die unter 
demselben Namen ange- 
boten wird, bietet außer 
einem Handbuch und ei- 

nem Editor auch nicht 
mehr. Nur kostet es viel 
mehr als die volkstüm- 

- liche Public-Domain-Fas- 
sung. 
Neben tausend Spezial- 
lösungen insbesondere im 
geschäftlichen und meß- 
technischen Bereich sind 


und UNIX, Word 2000, 
große Teile des Amiga- 
Betriebssystems und vie- 
les andere ist in ‚‚C““ pro- 
grammiert. Vornehmlich 
mit zwei Versionen soll- 
ten Sie sich befreunden: 


Das Erstgenannte ist in. 
den USA sehr weit ver- 
breitet; eine stattliche An- 


aus der ‚Public Domain“, 
ist mit diesem Compiler 


zu bekommen, außerdem 
besitzt es recht eigenwil- 
lige F unktionen. | 


BEISPI ELPROGRAMM FÜR ASSEMBLER 
RMAC/LINK 


CPM EQU 05H; Schnittstelle 
ORG 0100H; 1. Adresse. 
LXI D,TEXT; LD DE,TEXT 
MVI CO; LDC9 | 
CALLCPM; nn 
RET 


: DB ‘Hier meldet sich’ 
DB ‘der C128 mit dem’ 
DB ’ersten Assembler’ 
DB ‘programm.’ 
DB OAH,ODH; Linefeed/Carr.Ret. 
DB 'Programmierer:” 
DB ’(Ihr Name!)’ 
DB OAH,ODH 
DB ’$’, Ende des Strings 
END | 


C80 ist nicht gerade bil- 

lig, läßt aber fast alle - 

Tricks zu, wegen denen 
C“ so beliebt ist. 

Große Bibliothek und aus- 

führliche Dokumentation 

machen den Preis (278 

Mark) wieder wett; da 

der ANSI-Standard weit- 


vor allem drei Program- 
me mit sehr allgemeinen 
Anwendungsmöglichkei- 
ten zu nennen: 

dBase II, WordStar und 
Multip lan. 


MS-DOS erhältlich, koste- 
te noch vor einiger "Zeit 
etwa 1000 Mark, da aber 
die Entwicklungskosten. 
bei weitem schon gedeckt 
waren, konnte der Her- 

. steller (Ashton Tate) über- 
zeugt werden, daß eine 
Unzahl von 128PC-Besit- 
zern in Europa auch In- 
teresse an diesem Pro- 

. gramm zeigen könnte, was 
natürlich nur eine Frage 
des Preises sei. Ergebnis: 

 dBase gibt’s inzwischen 
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wir es Ihnen nur emp- | 
fehlen. 

Ferner gibt’s noch ein 
SMALL C in der Public 


nen ganz nett, aberim 
Sprachumfang so einge- 
schränkt, daß Sie größe- 
re Programmpakete 


Doch es ist idealzum „Rein- 
schmecken”, BeNoE Sie 


Base II, unter CP/M und 


für etwa 200 Mark. 


Dafür erhalten Sie ein aus- 
gereiftes Datenbanksy- 
stem, das dem Benutzer j 
jede Freiheit läßt, eine 
eigene Sprache bereit- 
stellt, Programmierung 
erlaubt und vor allem mit 


sehr umfangreichen Er- 


klärungen und Dokumen- 
tationen ausgeliefert wird, - 


kurz: die Datenbank für 
. CP/M-Computer. 


Dem Textverarbeitungs- 
programm WordStar 
kann getrost nachgesagt . 


‘werden, daß es der Weg- 


bereiter für alle nachfol- 
genden bildschirm-orien- 


 tierten Editoren (sowas 


ist nämlich ein Textverar- 
beitungsprogramm) im 
weitesten Sinne war. 


'WordStar glänzt weniger 


durch seine Geschwindig- 
keit oder seinen Bedie- 
nungskomfort, sondern 
vielmehr durch seine Ver- 
breitung und seinen Be- 
kanntheitsgrad. Voll aus- 
nutzen kann das Pro- 
gramm, wer ‚„Mailmer- 
ging“ betreiben, Druk- 


ker anpassen, F ormatie- 


ren, F ormulare druk- 
ken und dergleichen mehr 
möchte. Zum Schreiben 
von einfachen Briefen, 
Programmen im Quell- 


‚code oder simplen Zei- 


tungsartikeln, wie etwa 
den, den Sie gerade lesen, 
genügt vollauf der in Tur- - 
bo-Pascal (Vertrieb: Fir- 
ma Heimsoeth, München) 
eingebaute Editor, der in 
seinen Funktionen sowie- 
so kompatibel zu Word- 
Star ist. 


MULTIPLAN _ 

DAS „SPREADSHEET“ 
Multiplan (von Microsoft) 
hat gewisse Gemeinsam- 
keiten mit dBase: Es ist 
seit geraumer Zeit zu ei- 
nem weitaus günstigeren 


‚Preis zu haben als ehe- 


dem; es ist die „große alte 
Dame“ der Sparte; alles 
Vergleichbare ist mehr 
oder weniger ‚„nachpro- 
grammiert“. Und: es ist 
absolut ausgereift. 2 
Wir können hier unmög- 
lich alle Funktionen be- 
schreiben, das macht das 


| 350seitige Handbuch da- 
zu recht ordentlich, zu- 


dem gibt's bei den be- 


kannten Fachbuchverla- 
gen sehr gute ergänzende 
Bücher (Data Becker und 
Sybex, beide Düsseldorf, 
Markt und Technik, 
Haar). 
Die in den vergangenen 
Jahren vor allem für MS- 
DOS sehr oft verkauften 
Pakete ‚‚Eines für alle“ 
Kalkulation, Textsystem, 
Datenbank, eventuell 
Modemsteuerung, auto- 
 matische Verwaltung der 
Festplatte vom Pro- 
- gramm aus und derglei- 
chen sind zum Teil erst 
durch die rapide gesunke- 
nen Preise für die RAM- 
Speicher möglich gewor- 
- den. Solche Pakete arbei- 
ten mit Programmgrößen 
. von mehreren 100 a 


ecke ee 
kann, das Los jedes Acht- 
Bit-Computers. Und genau 
für diese‘ ,‚Bit“-Zwerge, zu 
denen auch der C128 ge- 

_ hört, wurde ja CP/M ent- 
wickelt. Für die großen 
Personalcomputer, die 
schon 16 Bits adressieren 
können, wurde aus CP/M 
dann MS-DOS entwickelt. 
Doch brauchen wir CP/M- 
ler den Kopf nicht hängen 
lassen: Die drei Klassiker 
dBase, WordStar und 
Multiplan wurden mit der 
Zeit so bedeutsam, daß 

es sich keiner der drei ver- 
schiedenen und voneinan- 
der unabhängigen Herstel- 
‚ler mehr erlauben konn- 
te, „‚Insellösungen“ zu 
schaffen. Das Ergebnis: 
dBase-Dateien lassen sich 
mit WordStar editieren. 
oder zum „Mailmerging“ 
lesen. Multiplan-Tabellen 
können von den beiden 
anderen direkt verarbeitet 
werden, dafür lassen sich 
Recherchen aus dBase di- 
rekt mit Multiplan bear- 
‚beiten, die Ergebnisse in 

_ WordStar-Reports einle- 
sen und ausdrucken usw. 
‚Verglichen mit den Prei- 
sen für MS-DOS-Lösungen 
wie etwa Framework, das 
im Prinzip auch nicht 
mehr kann — zumindest 
nicht in dem Sinne, daß 
der. Privatanwender oder 
kleinere Betrieb diese Mög- 
lichkeiten auch ausnutzen 
könnte —, kommen Sie mit 


"schäft und auch ihr g utes 
Recht, versuchen Br ein- 


insgesamt etwa 600 Mark 
für alle drei Programme 
um gut 1000 Mark besser 
weg als der Besitzer eines 
„echten“ MS-DOS-Perso- 
nalcomputers. 

Angesichts der i immer bil- 
liger werdenden 16-Bit- 
Rechner sowohl unter 

den PCs als auch der 
„68000er“-Familie (Ata- 
ri ST, Amiga, Apple) muß 
sich der Besitzer eines 128 
PC durchaus die Frage stel- 


len: Was wird aus CP/M? 


Betrachten wir es mal 
nüchtern und ohne rosa- 
rote Brille: Zukunft hat 
das gute, alte 8-Bit-CP/M- 
wohl keine mehr. 
Programmpakete wie 
dBase werden nicht mehr 
entwickelt werden: Die 
Programmierer dieser Fir- 
men sind voll dabei, diese 
alten Programme 1: lauf 
die Rechner der neuen 
Generation umzusetzen, 
auch wenn das den Ein- 
druck eines Anachronis- 
mus vermittelt. Gute 
Ideen sind eben zeitlos. 
Wir als CP/M-Anwender 
können uns jedoch auf 
etwas berufen, das die be- 
staunten 32-Bit-Compu- 
ter in absehbarer Zeit 
noch nicht haben wer- 
den: ein sehr ausgereif- _ 
tes Standard-Betriebssy- 
stem, eine ruhmreiche 
Vergangenheit und eine 
mit einer Million CP/M- 
Geräten allein in Deutsch- 
land (natürlich sind das 
nicht nur Commodore- 
Rechner) nicht wegzudis- 
kutierende Zahl von An- 
wendern. 

Die Hardware-Produzen- 
ten, das ist deren Ge- 


zureden, wir bräuchten 
jedes J ahr einen neuen 
Computer. 

Die Software-Häuser hin- 
gegen bemühen sich, uns 
einzureden, daß genau 
ihre Programme auf ge- 
nau unserem Computer 
gut seien. 
Dies ist die Gegenwart 
von CP/M: eine Gegen- 
wart, die es uns leicht fal- 
len läßt, ein ‚‚veraltetes‘“, 
ein „kleines‘‘ Betriebs- 
system zu benutzen. 


' LMD 


on TIPS & TRICKS = iz . EEE 2 m 


ISERVICER 


DATENTRANSFER 


Mit 


der 


Buschtrommel 


begann es 


Von jeher war der Mensch auf Informationen 
und Nachrichtenaustausch erpicht. Dabei spielte natür- 
lich die Geschwindigkeit des Austausches eine große 
Rolle. Zuerst wurden Kuriere losgeschickt, später 
dann Rauch- und Feuerzeichen verwendet. Die 
Urwaldtrommler könnte man als erste akustische 


-# Nachrichtenübermittler bezeichnen. Als das technische 


Zeitalter einsetzte, wurde der Informationsaustausch 
“immer schneller und bequemer. Durch die Erfindung 
' des Telefons gelang es, Informationen in großer Menge 
zu übermitteln. In unserer heutigen Zeit übernehmen 
diese Aufgaben immer mehr die Computer, zuerst 
im professionellen und zunehmend im 
privaten Bereich. 


‚Es gibt viele Möglichkei- 
; ten, Texte von einem 
1 , Computer zum anderen 
| zu schicken. Den einfach- 
sten Weg bietet die Tele- 


| kommunikation. 


" Benötigt werden eine Te- 


|lefonanlage, für jeden 

! Computer je ein Akustik- 
'koppler, das abgedruck- 

; te Programm für Ihren 
Rechner und ein Termi- 
ı nal-Programm für die 
‘Gegenstelle. 
| Bei einem Telefongespräch 
wird aus dem Schalldruck 
des gesprochenen Wortes 
eine Spannung mit wech- 
[geinder Frequenz erzeugt. 
"Diese wird über die Lei- 
:tungübertragen und Lei- 


ıtungsverluste durch Ver- 
stärker wieder ausgegli- 


ichen. Beim Empfänger 


"wird diese Wechselspan- 
inung wieder in einen hör- 
baren Schalldruck zurück- 
‚verwandelt. 


‚Digitale Signale, die bei 


unserer Datenfernübertra- 


‚gung vorkommen, müssen 


in akustische Signale um- um- 
gewandelt werden. "Nur 


‚dann können sie auch 
;über die Leitung gesendet 


|werden. Beim Empfänger 


‚angekommen, werden die- 
Ise akustischen Signale wie- 
‘der in digitale umgesetzt. 
Die Geräte, die eine sol- 
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che Umsetzung bewerk- 

stelligen, nennt man Mo- 
sn: oder Akustikkopp-: 
eT. 


Die Übertragungs-Ge- | 
schwindigkeit beträgt 300 
Baud im Vollduplexver- 
fahren. Das heißt, es wer- 
den in einem Datenkanal 
gleichzeitig Daten gesen- 
det und empfangen. Die- 
ses Verfahren wurde in | 
Europa genormt und trägt 
die Bezeichnung CCITT 
(Comite Consultative In- 
ternational Telegraphique 
et Telefonique). 

Es gibt zwei verschiedene 
CCITT-Normen. Zum ei- 
nen die CCITT-V.21-Norm, 
die zwei gleich große Da- 


tenkanäle besitzt. Damit 


lassen sich aber nur Ge- 
schwindigkeiten von 300 
Baud oder weniger errei- 
chen. 


Wollen Sie aber mit höhe- 
ren Übertragungsarten ar- 
beiten, so können die Da- 
ten nicht mehr gleichzei- 
tig empfangen und gesen- 


det werden. Das liegt dar- 


an, daß in einem Telefon- 
kanal keine zwei Daten- 
kanäle mit sicherem Stör- 
abstand untergebracht 


werden können. Sie müs- 


"sen also auf das Halb- 
Duplexverfahren, die 


SERVICE 


CCITT-V.23-Norm, um- 
schalten. 
Hierbei werden die Da- 
ten entweder gesendet 


oder empfangen. Das 


Ende einer Übertragung 
wird als Schlußzeichen 
‘oder über einen langsa- 
men Datenkanäl über- 
 mittelt. Im Hauptkanal 
werden Daten mit 1200 
bps (Bits per Second) 
übertragen, ein Zusatz- 
kanal mit 75 bps wird für 
. die Steuerung der Daten- 
- übertragung verwendet. 


DIE RS-232- 
SCHNITTSTELLE 


Den Datenfluß zwischen 
Computer und anderen 
. Peripherie-Geräten wie 
Drucker oder Akustik- 
koppler regelt die Schnitt- 
stelle RS-232, in Europa 
auch V24 genannt. Sie 
ist am geeignetsten für 
unsere Übertragung per 
Telefon. Die Übertragung 
erfolgt immer seriell, ein 
paralleler Transfer über 
Telefon ist nicht möglich. 
Bei der seriellen Übertra- 
gung werden die acht Bits 
eines Bytes einzeln über- 
tragen. Dadurch wird. 
zwar die Geschwindigkeit 
geringer, aber Sie kom- 
men mit weniger Leitun- 
gen aus. 
Die Schnittstelle am 
Commodore ist durch ein 
Modul eı erhältlich, bezie- 
hungsweise ein Kabel, 
das auf der Commodore- 


Seite einen Userportstek- 


ker und auf der anderen 
einen 25poligen Stecker 
(DB25) aufweist. Diese 
Kabel gibt es in der Re- 
gel zu kaufen, sie nehmen 
‚auch die erforderliche 
Pegelumwandlung +12 
Volt vor. Sollten Sie aber 


= ‘vorhaben, dieses Kabel 


selbst zu basteln, so ent- 
nehmen Sie bitte die Pin- 
Belegung der beiden Stek-- 
ker unserer Grafik. 

Achten Sie aber bei der 
Verwendung des User- 
ports als Eingang unbe- 
dingt auf.die Eingangs- 
spannung. ‘Sie darf nur in 
einem Bereich von null 
bis fünf Volt liegen. 

Soll der Userport als Aus- 
gang dienen, halten die 


Term. 125 


10 rem -=un=-=zunnmunn nn nn nnnnunen 0 <com> 
28 rem parameter 8 n 1 <hi> 
ID: DEM FREE EFT Sn Snneen CMMS, 
188 open 2,2,3,chr$(6) :printchr$( 1 
2) +chr$( 14) :printchr$( 147) «ins. 
118 dim g%( 256) ‚,h%( 256) <nm> 
1208 for s=8t0255:h%( s)=s:next <dh> 
138 fors=32t064:h%[ s)=s:next <mk> 


148 fors=65t098:h%( s) =s+32:next <ad> 


158 fors=-97t0122:h%l s)=s-32:next c<hk> 


168 h%[ 28) =8 <pf> 
178 fors=193 to218:1=-s-128:h%(s)=1 
next | | <gd> 
188 fors=8t0255 <mi> 
198 1=h%( ss) | | _<mg> 
208 ifl<>BthengX%l1)=s <pm> 
218 next <ch> 
220 Beine VERSPELSEUNGFEFORL <ie> 
230 get#2,a$ <oa> 
2408 ifa$=""orst<>@then27® enf> 
258 ifa$=chr$( 18) then238 <fh> 
268 print chr$(g%lasc(a$))); <ge> 
270 geta$ <kf> 
289 ifa$=chr$( 95) then31B <jo> 
298 ifa$<>""thenprint#2, ERESLUNIEE u 
c(a$))); <im> 
388 goto 238 | <hm> 
318 print:print"Filename:";:poke21 
‚l:inputb$ | <pn> 
319 Bere BD: print: opend,B, 8, Bern 
s,r" <jm> 
320 get#8,a$:su=st:print#2,a$;:pri 
nta$; <id> 
338 ifa$<>""thenprintf#2, chr$Ch%las 
c(a$))); <od> 
348 if su-dthen32B <ad> 
358 closed:goto23B . enn> 
368 rem =-programmende- <mo> 


Ausgänge nur die Bela- 
stung eines TTL-Eingan- 
‚ges aus. Es empfiehlt sich 
in jedem Fall, eine Puf- 


Unser Beispiel zeigt Ihnen 
ein kleines Terminalpro- 
gramm für die Verbindung 
zwischen Commodore 


ferstufe einzubauen. 


OHNE TERMINAL- 
PROGRAMM Ä 
GEHT NICHTS 


und PC. In Zeile 100 wird 
die RS-232-Schnittstelle 
geöffnet, der Bildschirm 
gelöscht und auf Klein- 
schrift umgeschaltet. Den 
OPEN-Befehl sind Sie von 
der Floppy gewohnt. Die 


Das nächste te 
Handwerkszeug zur Über- 
tragung von Daten ist 
das Terminalprogramm. 
Wollen Sie zwei Commo- 
dore-Rechner verbinden, 
reicht das Grundpro- 
gramm des zweiten 
Listings. 
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Geräteadresse der RS-232- 
Schnittstelle lautet immer 
2. Danach folgt die Para- 
metereinstellung (Baud, 
Stopbits, Parität) mittels 
zweier CHR$-Anweisun- 
gen. In unserem Beispiel 
reicht für eine. 
gung mit 300 Baud, acht 


ertra- 


Bits, Volläuplex und kei- 
ner Paritäts ind der 
Befehl Chr$(6) | 
Für eine Übertragung mit: 


300 Baud, sieben Bits, 
ir; Vollduplex und keiner 
- Parität müßte der Befehl 


OPEN2,2,0,Chr$(38). 


_ +Chr$(224) lauten. 


Der Commodore legt sich 
nach dem OPEN-Befehl 
zwei Puffer mit je 256 
Bytes an. Im einen wer- 
den die empfangenen und 
im anderen die zu senden- 
den Daten bis zur Weiter- 
verarbeitung aufbewahrt. 
Die Geschwindigkeit, mit 
der die Datenandie _ 
Schnittstelle geschickt 
werden, ist immer kon- 
stant. Daher ist es bei ei- 
ner größeren Geschwin- 


| digkeit nötig, die Daten 


in einem Puffer zwischen- 
zulagern. 

Das gleiche geschieht mit 
jenen Daten, die bereits 


‚im Rechner angekommen. 


sind, aber noch ‚nicht wei- 


terverarbeitet wurden. In 


Zeile 11O werden dann 
zwei Variablen zur Daten- 
konvertierung initialisiert. 
G% steht für die Emp- 
fangsdaten und H% für 
die Sendedaten. 

Da bei allen Commodore- 
Heimcomputern der 
ASCII-Code umgekehrt 
zum Standard-ASCIH- 
Code verschlüsselt ist, 

muß eine Codewandlung 
vorgenommen werden. 
Dies geschieht in den 
Zeilen 130 bis 170. Die 
Codewandlung betrifft 


. .aber nur die Klein- und 
- Großbuchstaben. Bei 


Satzzeichen und ähnli-. 
chem entspricht der 
Commodore-Code dem 
des Standards. 

Wird eine Taste gedrückt 
und liegt der ASCII-Wert 
des eingelesenen Zeichens 
im Bereich zwischen 64 


und 91, dann ist es ein 


Kleinbuchstabe. Soll die- 
ses Zeichen gesendet wer- 
den, so muß der Wert 32 
addiert werden (Zeile 
140). Das DELETE-Zei- 
chen (20) wird in Zeile 
160 zum Standard-BACK- - 
SPACE-Zeichen (8) um- 
gewandelt. 

Beim Empfang eines Zei- 
chens wird vom ASCII- 
Wert 32 abgezogen, wenn 


es ein Kleinbuchstabe war 


EEE SE |C EEE 


Taste‘. Daraufhin werden 


\ 


| Gh au ed, | Sie nach dem Filenamen 
Tabelle der Standard- 6 an Hin a Fan Ihres yarbereite, 

Codes mit der aus Ihrem 28 rem parameter ? n |] <he> ten Files an und bestäti- 
Handbuch. 308 ram + nnninnnnnninnnn nn nun <mm> gen Sie mit RETURN. 

a EN au 188 open 2,2,8,chr$( 38) +chr$( 224) “nc> en zur Ge- 

VON DER THEORIE 110 printchr$( 147) ;chr$( 14) <cch® kleines Terminal- 
ZUR PRAXIS * ER ifag=-" “then170 a Brosramm ıt nun 
a iii rin mn 1 1 a 

148 5 sasc( ei. :ifa<91anda>64thena=a ir Schluß a, 
Mit unserem kleinen Ter- +32 <hb> vielmehr die Grund 
 minalprogramm, das Sie fi der Datenfernüb ._ 

_ abgetippt und auch hof- 158 ifa=28 thena=8 <oe> 4 m ernübe ee 
fentlich abgespeichert ha- 168 print#2,chr$(a); ein» Sumons: an | 
ben, können Sie bereits 170 get#2,0$:ifa$=""then130 BJ Prosa nepineen 
ee 175 ifa$=chr$( 18) then17® <lm> . 
munizieren. 180 a=asc(a$) :b=a:ifa>96thenb=a-32 <pi> AKUSTIKKOPPLER 
Als erstes verbinden Sie 185 ifa<91 and a>64 then b-a+12d <bk> ODER MODEM? 
ner Ba mit dem 198 ifa-Bthen b=20 op 7 — - 

| ustikkoppler, schalten 208 a=b:print chr$(a);:goto138 <pb> = 
ihn ein und stellen den 218 rem program = end e- a N nn 
Wahlschalter auf ORIG £ ustikkoppler Modems. 
(originate). Sollten Sie Denn das Wort Modem 
nicht mit einer Mailbox, ist die Abkürzung von _ 
Sonden enemende Modulator-Demodulator. 
ren Computer kommu- E ee ee im Hausge- 
nizieren wollen, so muß z | ä a oe Den, 
dessen Akustikkoppler ASCII-STANDARD-CODE sind Modems, die galva- 
auf ANSW (answer) ge- nisch direkt mit der Te- 
schaltet sein. u -  lefonleitung verbunden 
Schalten Sie Burn Com- ee re ee essäls dazu gibt es 
puter ein und starten Sie ns | 
das abgetippte Terminal- er RE Char Hex die Akustikkoppler, die 

programm. - - Signale akustisch empfan- 
 Plazieren Sie Ihr Telefon Char: Hex Dec Char Hex Dec genund senden. 
.so, daß Sie den Telefon- en 
hörer bequem mit dem A 41 65 a 61 97 
Koppler verbinden kön- B 42 66 b 62 98 a an 
nen. Achten Sie unbe- C 43 67 c 63 99 on h . Er i Pl: ie 
dingt auf die richtige La- D 8 run “des T eo ha azie- 
ge des Hörers. Als näch- 44 68 d 64 100 Kar er ee 
. . stes wählen Sie die Num- E 45 69 e 69 101 nn 

Be F Ä | | kopplers: Meistens ist bei 
mer des gewünschten | 46 70 f 66 102 den neuen Apparaten d 
„Ansprechpartners“. . G 47 71 g 67 103 Post der Hörer Z 08 . 
Ertönt nach dem Rufzei- H en . 

48 72 h 68 104 bei den alten dagegen zu 
chen ein hoher Pfeifton, | 49 73 ’ klein. Das hat zur Folge, 
ist die Gegenstelle zum 69 105 i daß die akustische ae 
Datenaustausch bereit. . aA 74 J 6A 106 ale, die ı 
Wenn Sie mit einer Mail- K 46 75 K 6B 107 = fan werden, nicht 
. Be a a an so L 4C 76 | 6C 108 Bee et werden. 
stätıgen- Sıe mit der | 
RETURN-Taste, daß N = n HR r Ka mu Ak igdr 2 
auch Sie bereit zum Da- | Ä 2 > klei te Hust ; 1 St 
tenaustausch sind. Der o© ar 73 e er 11 d ee tikko DE - 
weitere Verlauf ergibt P 50 80 p 70 112 Zeichen auf 1 Bild a: 
.* sich durch das Mailbox- Q 51 81 q 71 113- a Se u schirm 

. menü. Da alle Mailboxen R 52 82. r 72 14 erraen ur 
mit unterschiedlicher S Abhilfe bri da di 
Menü-Führung arbeiten, 93 83 | > 73 115 Mod nen di L 
gibt es keine einheitli- T 54 84 t 24 116 d . 7 ef 1 zn BR 
chen Wegweiser durch U 5 85 u 75 117 hl on ” Fall di . 
die Systeme. Sie müssen V 56 86 V 76 118 Pr blerne it tö nd n 
sich selbst einarbeiten. W 67 87 717: 1a Gei r Er En Ger nn 
Wenn Sie ein vorbereite- | ” 119 b ek n a | 
tes sequenitielles File sen- x 8 88 2. 78 120 en T Sppe in 
den wollen, so drücken Y 59 89 y 79 121 u In Eulen [enmina pie: 

O0 ATUCKEN Z BA 90 4 TA 122 gramm, können Sie sogar 


Sie die die „Pfeil-nach-links- Ihr Modem Telefonnum- 
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SERVICE 


So no na wm 


N 


DCE 


_ Zweidrahtleitung 


DTE (Computer) 


„mern wählen lassen und 
das so lange, bis ein An- 
 schluß erreicht ist. Ihr 
Computer nimmt Ihnen 
sogar die lästige ‚Ein- 
log-Prozedur“ beim An- 
schluß mit Mailboxen ab. 
Auch können Sie damit 
Anrufe von anderen Com- 
_ _puterbesitzern empfangen, 
"dieieine eigene Mailbox be- 
treiben. 
Leider gibt es für die 
Commodore-Homecom- 
puter wie C128, C64 oder 


 Plus/4 noch keine von der 


Deutschen Bundespost 
zugelassenen und mit ei- 
ner ZZF-Prüfnummer ver- 
sehenen Modems. Es wer- 
den zwar einige von ver- 
schiedenen Firmen ange- 


oO NO UVP WM 


Dreidrahtleitung 


DTE (Computer) 


TxD 
RxD 


2 
3 

4 RTS 
5 CTS 
6 DSR 
7 SG 

8 DCD- 
0 DTR 


DCE (A. Koppler) 
TxD 
RxD 


RTS 
CTS 


DSR 
SG 


DCD 
DTR 


boten, aber diese dürfen 
Sie nur an Haustelefonan- 
lagen und Nebenstellen 
betreiben. 

Also bleibt nur der gute 


alte Akustikkoppler und 


DTE (Computer) 


DTE (Co mputer) 


3 3 RxD | 
5 | 5 CTS 
6 | 6 DSR 5 
7 TSG FR 
8 8 DCLD f77 - 
20 0 DTR 2 
DTE | | | DCE = 
Ge re | 2 TxD 
N ri 
— 4 BRTS ae S 
| 7SG () a) 
ın w 
Verbindung DTE mit DCE = ) 
m 
| © 
1 3 5 79 1113 N PN 
| 10 [12 = 2 


das Warten, bis sich unse- 


re liebe Post endlich ent- 
schließt, nicht nur an die 
professionellen PC-User, 
sondern auch an die 
Homecomputer-Besitzer 
zu denken. 

Computer lassen sich aber 
nicht nur per Akustik- 
koppler oder Modem mit- 
einander verbinden. Die 
direkte Verbindung ist 
immer noch die einfach- 
ste Lösung. Diese Art 
wird auch Null-Modem 
genannt. 


nen Rechnern unterschied- 


16 
RS-232-Stecker 


Für die Datenübertragung 
(Received Data, Trans- 
mitted Data, Signal _ 
Ground) sieht die RS- 
232-Norm nicht nur Ka- 
bel für die Datenübertra- 
gung vor, sondern auch 
solche für die Steuerung 


der Kommunikation. Da . 


die Request-to-send 
(RTS)- und die Celar- 
to-Send (CTS)-Leitungen 
nicht eindeutig definiert 
sind, können die An- 
schlüsse bei verschiede- 


lich ausfallen. 

Verbinden Sie alle Leitun- 
gen zwischen den beiden 
Computern gekreuzt. Al-- 


so die RTS (request to 


send) mit der CTS (clear 
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18 20 22 24 


to send)-Leitung und um-- 


gekehrt. Die Signal-Erde 
wird mit der Signal-Erde 


verbunden. Die Leitungen 
TXD (Transmitted Data) 
und RXD (Received Da- 
ta) werden ebenfalls 
kreuzweise verbunden. 
Funktioniert die Übertra- 


° gung nicht, so versuchen 


Sie, die Leitungen unge- 
kreuzt miteinander zu 
verbinden. Das wäre RTS 


mit RTS und CTS mit 


CTS. Sollte sich immer 
noch kein Erfolg einstel- 


len, so verbinden Sie 
auch noch die Leitung 


TXD und RXD direkt. 
Zum besseren Verständ- 
nis betrachten Sie bitte 


unsere Grafik. ie 


EEE SE VICE IB 


DFÜ- LEXIKON 


Von AbisZ 


In vielen Büchern über Datenfernübertragung finden sich | 
unverständliche Fachausdrücke und Abkürzungen. Wir wollen Ihnen 
einen aleınen Überblick der häufigsten Bezeichnungen geben. 


AN SWER 

Senden mit dem Antwortfrequenz- 
paar fl=1850 Hz fürO0 

f2=1650 Hz für 1. 


ASCIHI 

American Standard Code of Infor- 
mation Interchange. 

ASCII ist eine genormte Code- 
Wandlung, die jedem Buchstaben, 
jeder Zahl und Sonderzeichen einen 
bestimmten numerischen Wert zu- 
-ordnet. Dieser Code wird von den 


meisten Computern verstanden und 


wird auch als Standard im DFÜ- 
Bereich verwendet. 


BAUD 

Gibt die Übertragungsgeschwindig- 
keit an. Anzahl der Signalwechsel 
pro Sekunde. 


-BPS 

Eine andere Möglichkeit, die Über- 
 tragungsgeschwindigkeit zu be- 
zeichnen. 

Anzahl der übertragenen Bits pro 

| Sekunde. 


BTX 
Bildschirmtext der Post; Übertra- 
gung mit 1200/75 Baud. 


CARRIER 

Carrier bedeutet auf deutsch ‚,‚Trä- 
ger“ und bezeichnet im allgemei- 
nen den Ton, mit dem Computer 
signalisieren, daß sie zur Kommu- 


nikation bereit sind. Dieses Carrier- 
Signal ist ein gleichbleibender Pfeif- 
ton mit einer bestimmten Fre- 
quenz. Mailboxen zum Beispiel 
warten bei Anruf, ob ein solcher 
Carrier vorhanden ist, erst dann be- 


- ginnen sie mit dem Senden von 


Daten. 


CBBS 
Computer Bulletin Board System. 


CCITT 
Comite Cönsultätive eraanal 
Telegraphique et Telefonique. 


Europäische Norm für Telekom- 
munikation. ! 


CTS 

Clear To Send oder empfangsbe- 
reit. 

Leitung, die anzeigt, daß ein DCE- 
Gerät bereit ist, Daten vom DTE- 


Gerät zu empfangen. Diese Leitung 


ist im Normalfall AUS. Wenn über 
die RTS-Leitung Sendebereitschaft 


‚angezeigt wird, so löst das DCE-Ge- 


rät mit CTS EIN das Senden von 
Daten aus. Ist die RTS-Leitung auf 
AUS geschaltet, so wird auch die 
CTS-Leitung auf AUS geschaltet 


(siehe auch RTS). 


CUG 
Closed User Group, spezielle Teil- 


nehmergruppe im Datex-P-Netz. 
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_DATEX-P 


Datennetz der Deutschen Bundes- 


Der tägungseschwinäiukeit bis 
9600 Baud. 


DCD 

Empfangspegel vorhanden. 
Leitung, über die ein DCE-Gerät ei- 
nem DTE-Gerät anzeigt, daß es 

ein Signal empfängt. Dies veran- 
laßt das DTE-Gerät, ein RTS-Signal 
zu senden. 


DCE 

Data Communication Equi ment. 
Gerät, mit dem Daten empfangen 
werden können (Modem, Drucker 
und so weiter). 


DSR | 
Datenempfänger betriebsbereit: 
Leitung, die dem DTE-Gerät an- 


zeigt, daß das DCE-Gerät betriebs- 


bereit ist. Im Normalfall ist diese 
Leitung auf EIN geschaltet. 


DTE 

Data Terminal Equipment. 

Gerät, das Daten sendet, zum Bei- 
spiel Terminal, Computer. 


DTR 


Data Terminal Ready.Das DTE- 


Gerät zeigt mit einem EIN-Signal 
an, daß es betriebsbereit ist. 


DOWN-LOAD 

Bezeichnung für das Einlesen von 
Daten (Texte, Programme) aus ei- 
nem anderen Rechner. Ä 


FSK 

Frequency Shift Keie 

Daten werden durch Frequenzum- 
tastung moduliert. 


ISDN 

Integrated Services Digital Network. 
Sämtliche Daten, auch Sprache, 
werden digital übertragen. 


LOGIN 
Verbindungsaufbau zu einem Rech- 
ner, meistens mit einer User-ID. 


LOGOFF 

Gegenteil von LOGIN. 

Wird. meistens mit den Befehlen 
LOGOFF oder BYE durchgeführt. 


MAILBOXEN 

Mailboxen nennt man in unserer 
heutigen Zeit Computer, die über 
normalen Telefonanschluß oder 
DATEX-P angerufen werden kön- 
nen. Mailboxen stellen dem Anrufer 


sogenannte ‚‚Bretter‘‘ zur Verfü- 
gung, auf denen Öffentliche Mittei- 
lungen an andere Anrufer geschrie- 
ben oder deren Nachrichten abgeru- 
fen werden können. Um einen per- 
sönlichen „Briefkasten“ in einer 
Mailbox zu erhalten, ist es in der 
Regel notwendig, sich als „User“ 
eintragen zu lassen. In diesen Brief- 
kasten können andere Teilnehmer 
persönliche Nachrichten schreiben, 
die nur der eingetragene User lesen 
kann. Außerdem können Sie Mail- 
boxen als elektronische. Tageszei- 
tungen, produziert von den Anru- 
fern, befrachten. 


MODEM BZ 

- Modulator-Demodulator. 

1. Das Galvanische Modem: 

Es wird direkt an der Telefonleitung 
angeschlossen. Muß von der Bundes- 

post genehmigt und angeschlossen 

werden. 

2. Der Akustik-Koppler: 

Der Telefonhörer wird auf Gummi- 

manschetten des Kopplers aufge- 

steckt. Keine direkte elektrische 

Verbindung zum Telefonnetz. 

Nur mit ZZF-Nummer der Bundes- 

post genehmigt. 


NUA 

Network User Adress. 
Teilnehmerkennung im DATEX-P- 
Netz. Gibt die anzurufende Num- 
meran. 


NUI 
Network User Identification. 
 Teilnehmerkennung im DATEX-P- 
Netz. Gibt die eigene Nummer an. 
 Dient zur Abrechnung der empfan- 
genen Daten durch die Bundespost 
| ne kann nur dort beantragt wer- 
en 


ORIGINATE 
Senden mit dem Sendefrequenz- 
paar fl=1189 Hz für O 

 f2= 980 Hz für 1 (siehe 
ANSWER). | 


PAD | 

Packet Assembly and Diss bir 
Facility. 
DATEX-P-Vermittlungsstelle. 
Übernimmt die Umwandlung des 
asynchronen Datenflusses in ge- 
normte „Pakete“ und umgekehrt. 


PARAMETER 

Als Parameter werden sämtliche. 
Einstellungen im Übertragungspro- 
tokoll bezeichnet (siehe auch 
PROTOKOLL). 


PARITAT 39 
1. Gerade Parität: 
Das Paritäts-Bit wird gesetzt, wenn 


‘ die Anzahl der Datenbits im gesen- 
a Zeichen eine gerade Zahl er- 


5. Ungersde Parität: 
Ist im gesendeten Zeichen die An- 


. zahl der Datenbits ungerade, wird 


das Paritätsbit gesetzt. 

3. Keine Parität: | 

Bei der Übertragung wird auf das 
Senden des Paritätsbits verzichtet. 


PROTOKOLL 


‚1. Festlegung der Regeln bei der Da- 


tenübertragung (zum Beispiel Baud, 
Übertragungsart, Parität). 

2. Aufzeichnung der empfangenen 
Daten. 


RS-232 
Genormte Schnittstelle zur seriellen 
Übertragung von Daten. | 


RTS 
Ready To Send oder Request To 
Send (sendebereit). 
Leitung, mit der vom DTE-Gerät 
beim DCE-Gerät angefragt wird, ob 
Daten gesendet werden können. Im 


Normalfall ist diese Leitung AUS. 


Sollen Daten gesendet werden, so 
wird vom DTE-Gerät ein EIN- Sipnal 
an das DCE-Gerät gesendet. Die 


Übertragung beginnt, wenn das 


DCE-Gerät über die CTS- Leitung 


‚ein EIN-Signal sendet. Beim Beginn 


der Übertragung wird das RTS- 
Signal auf AUS gesetzt. 


Recieved Data. 

Über diese Leitung werden Daten 
vom DTE-Gerät zum DCE-Gerät ge- 
sendet. 


SG 
Signal Ground. 
Erdungsleitung. 


STARTBIT 
Zeigt den Beginn eines zu sendenden 


Zeichens an. 


STOPBIT(S) | 

Kennzeichnung des Übertragungs- 
endes eines Zeichens. Meist werden 
ein oder zwei Stopbits verwendet. 


SysOp 

Selem Operator. 

Bezeichnung für den Betreiber ei- 
ner Mailbox. 


TERMINAL 
Im allgemeinen wird damit das Pro- 
gramm bezeichnet, das der Compu- 
ter braucht, um mit anderen Rech- 
nern zu kommunizieren. 

Außerdem werden auch die einzel- 
nen Arbeitsplätze einer Großre- 
chenanlage als Terminal bezeichnet. 
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TxD 
| Transmitted Data. 


Über diese Leitung werden die Da- . 
ten vom DTE-Gerät zum DCE-Ge- 


rät übermittelt. 


UP-LOAD 

Bezeichnung für das Senden von 
Daten (Texte, Programme) an ei- 
nen anderen Rechner. | 


USER-ID 

User Identification, Benutzerer- 
kennung. > 
Nach Eingabe der User-ID erkennt 
das angerufene System, ob der An- 
. zugriffsberechtigt ist oder 
nic t. 


ÜBE RTRAGUNGSARTEN 


1: SIMPLEX: | 

Übertragung nur in eine festgelegte 
Richtung. vom Sender zum Emp- 
fänger, möglich (Rechner—Drucker). 


2. HALBDUPLEX: 
Datenübertragung in beide Rich- - 
tungen, aber immer nur abwech- | 
selnd. Wird bei sehr hohen Übertra- 
gungsgeschwindigkeiten benutzt. _ 


3. VOLLDUPLEX: 

Die am meisten benutzte Übertra- 
gungsart. 

Datenübertragung in beide Rich- 
tungen gleichzeitig. 


V.21 
Protokoll für eine Übertragung mit 
300 Baud. 


V.24 
Europäische Norm der RS-232- 
Schnittstelle. 


X. 25 
CCITT-Protokoll für ulz 
Datenübertragung. 


X-MODEM 

In vielen neueren Terminal TO- 
grammen für Computer befindet 
sich der Menüpunkt X-MODEM. 
Damit lassen sich Programme so- 
fort lauffähig übertragen, ohne den 
lästigen Umweg über ASCII-Code- 
wandlung. | 


XON/XOFF PROTOKOLL 


Vereinbarte Steuerung des Daten- 


a während der Datenübertra- 


KON — (CTRL-0): 

Signal für die Gegenstation zum 
Senden der Daten. 

XOFF — (CTRL-S): 


Signal für die Gegenstation, daß sie 


das Senden von Daten unterbre- 


chen soll. 


EB DE a En 


- Vor dem Laden von COM 


darf man natürlich nicht 
vergessen, die CP/M-Sy- 
stemdiskette einzuladen, 
ansonsten braucht am 
Anfang nichts beachtet 
werden. Was bereits zu 
Anfang ganz besonders 
auffällt, ist der langsame 
 Bildschirmaufbau. Es soll 
sich wahrscheinlich um 
eine neue Art Windowing 
handeln. Das Hauptmenü 
umfaßt 6 verschiedene 
Optionen. Unter den alt 
bekannten Menüfunktio- 


nen taucht da plötzlich 


eine ganz neue auf, eine 


. mit dem Namen Makros. 


_ WAS SIND MAKROS? 


Jetzt stellt sich die Frage: 


Was sind Makros? Makros 
sind keine Kekse, son- 
dern kleine Helfer, die 
das Arbeiten zwischen 

. dem Computer und der 
Mailbox oder der Daten- 
bank erleichtern. Nehmen 
wir an, Sie rufen täglich 
Ihre spezielle Mailbox an, 
in der Sie immer die glei- 
chen Menüpunkte lesen. 
Warum sollten dann Sie 


_ immer die selben Punkte 


des Menüs anwählen und 
danach z.B. auf dem 
Drucker ausgeben oder 


. der Diskette abspeichern 


lassen? Diese Arbeit 
kann jetzt ein Makro 
übernehmen. Für die Pro- 
grammierung der Makros 
gibt es eine eigene Pro- 
grammiersprache mit 27 
Befehlen und Anweisun- 


Jetzt haben auch C-128-Besitzer unter CP/M 


128 & coM 


daß es keinen Menapunkt | 
gibt, in dem es möglich ist, 
einen Text einzugeben, | 
zu ändern oder einen ge- 


 rade empfangenen Text 


die Möglichkeit, mit COM Datenfernübertragung zu 
betreiben. Was auf den ersten Blick recht ansprechend 
wirkt, denn COM existiert in CP/M-Versionen bereits 
für fast alle Homecomputer, von Schneider a 
bis ı zu MSX. | 


den Spalten 41-80 wird 
zwar übertragen, aber mit 
40 Zeichendarstellung 
kann man ihn nur ungenü- 
gend lesen. Hier hilft dann 
nur das Ausdrucken des 
gesendeten Textes. Beim 
Schreiben in eine Mailbox 
ist die Tastaturabfrage zu 
schnell, dadurch entste- 
hen manchmal doppelte 
‚Zeichen. 


WEITERE 
FUNKTIONEN 


Hinter dem Menüpunkt 


„Dateien“ verstecken sich 


. weitere 8 Funktionen, die 


das Arbeiten mit der 
Floppy ermöglichen. Es 
besteht auch die Möglich- 
keit, das Laufwerk zu 
wechseln. Es geht aber 
meiner Meinung schnel- 
ler, wenn man statt des- 
= die Disketten wech- 
seit. 


“Mit „Initialisierung‘‘ wird 


. ein Submenü aufgebaut, 
in’dem es möglich ist, 

die Übertragungsparame- 
ter einzustellen. Da gibt 
es eine Funktion namens 


. gen. Sogar die Übertragungs- Filter, die das Umschal- 


parameter lassen sich mit 


ten zwischen ASCII, DIN 


Hilfe eines Befehles einste]- und ungefiltert erlaubt. 


len. Bei Übertragungsfeh- 

lern kann man die Arbeit 

‚mit Makros allerdings 
vergessen. _ 


Mit „‚2“ kommt man in 
den Terminalmodus, auch 
von hier aus ist es möglich, 
bei einem Mailboxdialog 
den Drucker per Tasten- 


druck zu steuern. Späte- 


‚stens jetzt bemerkt der 
Anwender, der mit einem 
Fernseher arbeitet, daß 
er einen Monitor braucht, 
welcher 80 Zeichen dar- 
stellen kann. Der Texti in. 


ie ar 


_ MAILBOXDIALOG MIT 
DRUCKERPROTOKOLL 


azu gibt es einen schö- 
nen Satz, der mit einer 
Art Kurzbeschreibung 
auf der Programmadiskette 
abgespeichert ist. Er lau- 
tet wie folgt: ‚Da der 
C-128 unter CP/M nicht 
über den nötigen Zeichen- 
satz verfügt, steht kein 
DIN-Filter zur Verfü- | 
gung. Es wird immer im 
ASCII- Zeichensatz ge- 
arbeitet.“ 
D.h.: Es ist nicht mög- 
lich, auf einen deutschen 
Zeichensatz zurückzugrei- 
fen, der im Menü ange- 
priesen wird! 


Unter Baudrate kann bis | 


zu 9600 Baud eingestellt 
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werden. Falls der C-128 
wirklich so hoch fahren 
könnte, fragt sich, was das 
Modem dazu kosten wür- 
de. Es ist wahrscheinlicher, 
mit dieser Baudrate eine 
reine Rechner-Rechner- 
Verbindung herzustellen, 
um schnellen Datentrans- 
fer zu ermöglichen. 


Doch auch hierfür werden 


dann bei so hoher Ge- 
schwindigkeit Spezialkabel 
nötig, um die Übertragungs- 


sicherheit zu gewährleisten. 


STEUERTASTEN WAHL- 
WEISE SCHALTEN 


Weiter besteht die Möglich- 
keit, die Steuertasten ein- 
und wieder auszuschalten. 


Bei eingeschalteten Steuer- 


tasten können folgende 
Steuercodes, die eine 
Mailbox evtl. braucht, 
nicht gesendet werden: 
CIRLD,F,G,H,1,J, L 


_M,Q,Sund CTRLT. Un- 


ter anderem wird auf der 
Programmdiskette ein Ko- 
pierprogramm mitgelie- 
fert. Es ist allerdings das 
langsamste Kopierpro- 


gramm, welches ich je er- 


lebt habe. Man sollte die 
Arbeitskopie doch lieber 
im 128-Modus kopieren, . 
das geht schneller. Wie alle 
CP/M-Programme wird 
auch COM ohne Kopier- 
schutz geliefert, was natür- 
lich sehr anwenderfreund- 
lich sein soll. Weniger an- 


- KEIN INTEGRIERTER 


TEXTEDITOR 


'wenderfreundlich wird es 


aber, wenn keine Diskette 
im Laufwerk liegt und 
man die Protokolldatei 
abspeichern will. Das führt 
dann unwiderruflich zum 
Ende von COM, die Daten 
sind natürlich ‚verloren. 


Es wird aufgefallen sein, 


° zu editieren. 


Dies ist richtig, es wird. 
allerdings ein Textpro- 
gramm mitgeliefert, das 


funktionsmäßig an Word- . 


Star angepaßt ist. 
Das Handbuch: Eines der 
besten Handbücher, dieich 


je gelesen habe. Das Buch 


ist in mehrere übersicht- 
liche Kapitel unterteilt. _ 
Im ersten Kapitel finden 
DFÜ-Neulinge die nötige 
Rohstoffinformation die 
man braucht, um mit 
Mailboxen und Daten- 
banken effektiv arbeiten 
zu können. Auch was es 
mit DATEX-P auf sich 
hat, wurde ausführlich 
abgedruckt. Selbst die _ 
Übertragung zwischen 

- Userport .und Mailbox 
wird sozusagen Bit für 
Bit erklärt. Im dritten 
Kapitel steht ein Master- 
 mailboxdialog. Darüber 
wird sich der Anfänger 
sehr freuen, der noch 
keinen Kontakt mit einer 
Mailbox hatte. Da wird 
z.B. auch die Program- 
mierung eines Makros 


Punkt für Punkt erarbei- 


tet. Am Ende des Hand- 
buches befinden sich 
mehrere Anhänge, wie 
z.B. Pannenhilfe und 

ein Mailboxführer. 

COM ist ein Terminalpro- 


. gramm unter CP/M, das 


meiner Meinung nach 
noch ganz am Anfang 
steht. Der wesentliche 
Nachteil besteht in der 
Geschwindigkeit. Das gilt 
nicht nur für die Menü- 
fenster, sondern auch für 


die zwei mitgelieferten 


Programme COPYDISK 
und EDIT. = 

Es beinhaltet zwar sämt- 
liche Funktionen, die zu 
einem erfolgreichen Mail- 
boxdialog notwendig. 

sind (außer ein eingebau- | 
ter Texteditor), ist aber 
teilweise umständlich zu 
bedienen und recht lang- 


sam im Aufbau der Menü- 


funktionen. Lediglich 
das hervorragende Hand- 
buch verdient uneinge- 


‚schränktes Lob. 


Andree Hermann 


IESERVICE HEEMEEEEEEEEE 


BASIC __<emnoiore Sanıe v7.0 Toren 


Alle Commodore Basics 
inklusive der Original- 
Version des Old Rom 
der Pet Serie 2001 be- 
nutzen in ihrem Basic 
bestimmte Schlüssel- 
‚wörter (Kommandos, 


Statements und Funktio- 


nen). 0 
Diese Schlüsselwörter, 
auch TOKEN genannt, 
werden vom Computer 
benutzt, um die entspre- 
chenden Basicbefehle 
platzsparend im Spei- 
cher abzulegen. Ein 
Token besteht aus einem 
oder höchstens zwei 
Byte, die durch diese 
Codierung natürlich sehr 
viel Platz sparen. Nimmt 
man z.B. den Basicbefehl 
PRINT‘, der eigentlich 
aus 5 Byte besteht, aber 
vom. Computer nur als 
ein Byte abgelegt wird. 
Gleichgültig, ob der Be- 
fehl ausgeschrieben 
wird oder ob man die 
Abkürzung ‘?‘ benutzt. 
Alle diese Basicbefehle‘ 
sind in einer Token- 
Tabelle abgelegt und 

- haben immer einen Co- 
dierungswert größer 128 
(dez) bzw. 80 (hex). Mit 
der Kenntnis dieser 
Werte ist es sogar mög- 
lich, ein Programm zu 
ändern. Man kann z.B. 
ein PRINT‘ durch ein 

. "REM* ersetzen oder ein 
RETURN‘ durch ein 
LIST‘ usw. Um dieses zu 


SO WERDEN 


BEFEHLE ABGELEGT 


erreichen, muß man na- 
türlich wissen, wie der 
Computer die Befehle im 
Basicspeicher ablegt. Da- 
zu tippen Sie einmal fol- 
gende Basiczeile ein. 


10 PRINT“HALLO“ 
>RETURN< 


Nun wollen wir uns ein- 
mal anschauen, wie der 
Computer diese Zeile 


UPTSÄACHLICHE SCHLÜSSELWÖRTER. 


Token Befehl 
88 ‚END 

si FOR 
‚82 NEXT 
83 DATA 
84 INPUT# 
85 INPUT 
86 DIM 
87  READ 
88 LET 

89 GOTO 
8A RUN 

8B IF 
sc RESTORE 
8D GOSUB 
SE RETURN 
gsf . REM 

98 -STOP 
91 ON 

92 WAIT 
93 LOAD 
94 SAVE 
95 VERIFY 
96 DEF 

97 POKE 
98 PRINT# 
99 e PRINT 
aA CONT 
o9B. LIST 
oc CLR 

9D CMD 

9E Sys 

OF OPEN 
Ag CLOSE 
Al GET 

A2 NEW 

CB GO 

DS ELSE 


Token Befehl 
A3 TAB 
Aa TO 

AS FN 

As SPC ( 


Token  Befen] 
AA + 
AB - 
=E.z2zz .:s—ssa»> 


SEKUNDARE SCHLÜSSELWÖRTER 


Token Befehl 
D6ö. . RESUME 
. D? TRAP 
DS TRON 
‚D9  _ TROFF 
DA SOUND 
DB voL 
DC - AUTO 
DD PUDEF 
DE GRAPHIC 
DF PAINT 
ES CHAR 
Ei BOX 
E2 CIRCLE 
E3 GSHAPE 
E4 SSHAPE 
ES DRAW 
E6 LOCATE 
E? COLOR 
E8 SCNCLR 
E9 SCALE 
EA HELP 
EB DO 
EC LOOP 
ED EXIT 
EE DIRECTORY 
‚EF DSAVE 
Fo DLOAD 
Fi HEADER 
F2 SCRATCH 
F3 ° COLLECT 
Fa COPY 
FS RENAME 
Fö BACKUP 
F? DELETE 
F8 ‚RENUMBER 
F9 KEY 
FA MONITOR 
Token Befehl 
A? THEN 
Ag NOT 
A STEP 
AA USING 


ARITHMETISCHE SCHLÜSSELWÖRTER 


Befehl 


Token 
At * 


Token 


AE 


TOKEN " 


Befehl 


BANK . 
FILTER 
PLAY 
TEMPO 
MOVSPR 
SPRITE 


. SPRCOLOR 


RREG 
ENVELOFE 


 SLEEP 


CATALOG 
DOPEN 
APPEND 


DCLOSE 
BSAVE 


BLOAD . 
RECORD . 
CONCAT 

DVERIFY 

DCLEAR 

SPRSAV 
COLLISION 


Befehl 


u 


LOGISCHE SCHLÜSSELWÖRTER 


Token Befehl Token Befehl Token Befehl 
AF AND Bo OR 
FUNKTIONS SCHLÜSSELWÖRTER 

Token Befehl Token Befehl Token Befehl 
B4 SGN c2 PEEK: D2 HEX$ 
BS INT c3 LEN D3 ERRS$ 
B6 ABS c4 STRS$ Da INSTR 
B? USR cs VAL CE 92 POT 

B8 FRE C6 ASC CE 93 BUMP 
.B9 POS c? CHR$ cE 94 PEN 

BA SAR c8 LEFT$ CE 95 RSPPOS 
BB RND c9 RIGHTS CE 86 RSPRITE 
BC LOG CA MIDS$ CE 97 RSPCOLOR 
BD EXP cc RGR CE 98 XOR 

BE cos CD RCLR CE 89 RWINDOW 
BF | SIN CF JOY CE 9A POINTER 
ca TAN DO RDOT er, 

ci ATN Di DEC 

_ VERGLEICH SCHLÜSSELWÖRTER 

Token Befehl Token Befehl Token Befehl 
Bi > .... B2 = B3 < 


Commodore Basic 


Monitorauszug: | 


1cag 


YB1cas 


v„7.9 Token 


8A BE IC dA BG 99 272 48 
41 4C AC 4F 22 00 06 00 


See H 


ALLO”"... 


So sieht der Monitorauszug für unsere 
Basiczeile aus. 
Aufgeteilt ergibt sich dann folgendes 


Bild: 


>O1CaH 
»B1Cco1 


»g1ca2. 


>91C093 
>91C94 
>81C95 
Y91CHE 
2391097 
>81C93 


IBICa9 


OO »BICHA 
 >G1CQE 
>ALCaC 
>91CBD 
>BLCAE 
>BLCHF 


Anhand 
sehen, 


Ss 


88 :Zeichen für Basiczeile 

BE :Linkadresse auf nächste Zeile 
1C :Linkadresse auf nächste Zeile 
8A :Zeilennummer (1%) 

88 :Leerstelle 

99 :Token für PRINT 

22 5 

48  :H 

41 :A 

4c :L 

4Cc  :L 

4F :0 

22 09 i 

88 :Zeilenerde 

88 :Neue Zeile En 

88 :Programmende(letzte Zeile). 


dieser Tabelle kann man nun genau 
wie der Computer Basiczeilen im. 


Speicher ablegt. 


im Speicher abgelegt hat. 
Dazu eignet sich der ein- 
gebaute Maschinenspra- 
chemonitor natürlich her- 
vorragend. Mit der Funk- 
tionstaste ‘F8‘ wird er 
gestartet. Nachdem das 
Einschaltbild des Moni- 
tors erschienen ist, geben: 
Sie dann folgenden Be- 
fehl ein. 


M 1C00 >RETURN< 
Es erscheint nun ein Aus- 


- schnitt aus dem Speicher 


mit Adressennummer und 
den entsprechenden Wer- 
ten in hexadezimaler 
Schreibweise. Fangen wir 
am besten von vorne an. 
In der ersten Speicherstel- 
le ist eine ‘0° abgelegt. 
Dies sagt dem Micropro- 
zessor, daß an dieser Stel- 
le eine Basiczeile beginnt. 
In den nächsten beiden 
Speicherstellen wird an- 
gezeigt, wo die nächste 
Basiczeile beginnt. Diese 
Adresse nennt man auch 
LINK-Adresse. Diese 
Adresse ist übrigens beim 
LISTEN eines Program- 
mes ganz wichtig! Durch 
Verstellen dieser Zeiger 
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innerhalb eines Program- 
mes können ganze Teile 
vor dem Listen geschützt 
werden! In den nächsten: 
Speicherstellen finden wir 
die Zeilennummer unse- 


rer Basiczeile wieder. 


In der nächsten Stelle 
steht dann unser ‘'TOKEN‘ 
als Hexzahl. Nämlich die 
83‘, die als Codierung 


. für ‘'PRINT‘ steht. Daran 


anschließend folgen die 
Werte für das Wort | 
“HALLO‘ und die Anfüh- 
rungszeichen. Am Ende 
der Programmzeile ste- 
hen dann eine oder meh- 
rere Nullen. Eine Null 
kennzeichnet das Ende 
der Programmzeile. _ 


TOKENÄNDERUNG 
IST EINFACH 


Ist diese Null die letzte 


eines Programmes über- 
haupt, so kommen noch 
zwei weitere Nullen hin- 
zu. Aber zurück zu unse- 
ren TOKEN. 

Die für uns wichtige Spei- 
cherstelle heißt ‘1C05“. 
Hier stehen das TOKEN 
für PRINT. Wird nun in 
diese Speicherstelle ein 


. anderer Wert geschrieben, 
z.B. (83), wird automa- 


tisch auch die Programm- 
zeile verändert. Geben Sie 
nun mal statt der ‘99° ei- 
ne ‘83° ein, RETURN 
nicht vergessen, und ver- 
lassen dann den Monitor 
mit X >Return<. Nun 
listen Sie einmal die an- 
fangs eingegebene. Basic- 
zeile und schauen sich 
an, wassich da getan hat. 


- Und o Wunder, jetzt steht 


da plötzlich statt ‘PRINT‘ 
ein DATA‘ vor dem | 
Wort HALLO. Verblüf- 
fend nicht wahr? Versu- 
chen Sie ruhig noch ein 
paar andere Möglichkei- 
ten. Wenn Sie das Basic- 
programm starten, kann 
es natürlich zu der einen 
oder anderen Fehlermel- 
dung kommen. Diese Än- 
derungen können natürlich 
auch aus einem Pro- 
gramm heraus erfolgen. 
Große Programmgenerato- 
ren, welche sich selbst er- 
weitern oder verändern, 


benutzen diese Möglich- 


keiten. Hier sind noch 
viele Anwendungen denk- 
bar. = 


ISERVICEI 


N | 


Ti PS, TRICKS, 


PEEKS 


gehoben wird dieser Zu- 
stand wieder mit “PRINT 
CHR$(12)“. Da aber vie- 
le ,,Wege zur Zentral- 


-  recheneinheit“ Ihres 


UND POKES 
FÜRDEN 128 


Ein sehr Komförabier 
Fortschritt des C-128 ist 
die Möglichkeit, die Funk- 
_tionstasten Fl — F8 be- 


“ reits mit Text belegt vor- 


zufinden. Sollte Ihnen 


der nicht passen (jede 
. Programmanwendung be- 


nötigt andere, spezifische 
Tastendrucke), so kön- 
nen Sie diese jederzeit än- 


dern. Rufen Sie diese Be- 


legung durch die Anwei- 
sung “ KEY“ auf, der 
Text dieser acht Tasten 
erscheint auf Ihrem Bild- 
schirm, und läßt sich 
nun von Ihnen umschrei- 
ben. Es ist z.B. ohne wei- 
teres möglich, einen Text 
von bis zu 256 Zeichen 
auf eine Funktionstaste 
zulegen, aber: insgesamt 
darf die Zahl der Zeichen 
oder Befehle, die Sie auf 
die F-Tasten legen, auch 
nicht größer sein als 

256 Bytes. Der entspre- 
ehende Speicherbereich - 
für diese ‚„‚Tabelle‘“ liegt 
bei $1000 (4096) — 

- $10FF (4351). 

Den neuen, geänderten 
Funktionstastentext spei- 
chern Sie bitte mit fol- 
gendem Befehl ab: 
BSAVE“F-TASTEN“, 
ON BO, P 4096 TO 

P 4351 | 

(Sie können natürlich. 
jeden anderen File-Na- 
men wählen.) Immer, 
wenn Sie diese spezifi- 
zierte Funktionstasten- 
Belegung in Ihrem C 123 


brauchen, laden Sie vor- 


her dieses File wieder 
mit: 
BLOADF -TASTEN“ 


1328 BLOCKS AUF 
DISKETTE — AUCH 
IM C-64-MODUS | 


Wer mit der Disketten- 
station 1571 arbeitet, 
muß auch im C-64-Modus 
nicht auf die beidseitige 


Nutzung der eingelegten 
5.25-Zoll-Diskette ver- 

zichten, er kann die Vor- 
teile der beiden Schreib- / 
Leseköpfe dieser Floppy 


. ausnutzen. Normalerwei- 


se besteht nämlich fol- 
gender Unterschied: For- 
matieren Sie eine Disket- 
te im 128er-Modus, so 


erhalten Sie nach anschlie- Ä 


ßendem Anzeigen des 
„Directory“ die Meldung: 
1328 Blocks frei, nach 
dem Formatieren im C-64- 
Modus allerdings nur 664 
Blocks. Das liegt daran, 
daß hier nur eine Seite 
(die Discunterseite) mit 
Spuren und Sektoren be- 
schrieben wurde, die 
Oberseite aber nicht. 
Überlisten Sie den C 64 


doch mit folgender Befehls- 


eingabe: 

OPEN 15,8,15,"U0 > 
M1“: CLOSE 15 

Nun können Sie auch als 
C-64-Nutzer beide Disket- 
tenseiten „in einem 
Durchgang‘ beschreiben, 
ohne daß Sie sie umdre- 
hen oder eine zusätzliche 
Schreibkerbe anbringen 
müssen. | 
Wohlgemerkt: es funktio- 
niert nur bei der Floppy 
1571, nicht aber bei den 
Modellen 1570 oder 
1541! 


UMSCHALTUNG 
ZWISCHEN GROSS- 
UND KLEINSCHRIFT 


Dies bewirkt beim C 128 


der einfache Befehl: 
PRINTCHR$ (14) oder 
die manuelle Umschaltung 
der beiden Tasten 
„Commodore-Shift‘“. 
Sollen nun diese Tasten 
gesperrt bleiben, schrei- 
ben Sie anschließend 
noch: PRINT CHR$(11), 
diese Eingabe blockiert 
die Umschaltmöglichkeit - 
dieser beiden Tasten, auf- 


C 128 möglich sind, kön- 
nen Sie auch andere Ein- 
gaben (z.B. in eigenen 
Programmen benutzen): 
SYS DEC(‘‘C880°°) 
Umschalten auf Klein- 
schrift-Modus 


SYS DEC(‘‘C892°“) 
Umschalten auf Groß- 
schrift | 


SYS DEC(“CBAC“) 
Commodore-Shift-Taste 
sperren | 


POKE 247,128 

dto. N 
SYS DEC@CRAEN 
Commodore-Shift-Taste 
entriegeln 


POKE 247,0 
dto. 


WEITERE TASTATUR- 
SYSTEMADRESSEN 


Nuri im 80-Zeichenmodus- 
des C 128 lassen sich fol- 


gende Funktionen auf- - 


rufen: 


SYS DEC(C8C7“) 
schaltet ‚‚Unterstreichen‘“ 
von Text ein 


SYS DEC("CSCE“) 
=. diese Option wieder 
au 


SYS DEC(“C8D5°) 
„Blink“-Modus ein 


SYS DEC(“C8DC“) 
„Blink“ -Modus aus 


Viele Tastaturmöglichkei- 
ten werden mit der sog. 
ESC-Funktion (CHR$ 
(27)) in Verbindung mit 
einem entsprechenden 
Buchstaben aufgerufen 
(siehe Handbuch zum 

C 128, Kap. 4-4 ff). 
Die meisten von ihnen 
können auch im 40-Zei- 
chenmodus genutzt wer- 
den, z.B. PRINTCHR$ 


Ä (27) + “E“ setzt den Cur- 


sor-Modus von Blinken: 


auf Konstantanzeige. Auch 


hier gibt es im Betriebs- 
system des Bildschirmedi- 
tors eine SYS-Adresse 


- ($ COIE oder 49182), die 


dies ebenfalls bewerkstel- 
ligt. Sie müssen lediglich 


Ban ASCII-Wert des fol- 


genden Buchstabens als 


30 


Br ze 


Parameter übergeben. 
_ Unser genanntes Beispiel 


würde dann so lauten: 
SYS DEC(“CO1E‘),45 


Zudem gibt es eine Spei- 
cherstelle beim C 128, die 


- die Tastenwiederholfunk- 


tion kontrolliert (2594). 
Ihr Normalwert ist immer 
“128°, es ist also nur das 
7. Bit eingeschaltet. Alle 
Tasten auf der Normalta- 
statur haben somit eine 
Wiederholfunktion, wenn 


‚Sie diese Taste länger ge- 


drückt halten. Löschen Sie 
dieses Bit, also “POKE 


2594,0°, so werden nur 


die Cursor-, die DEL-, 
INST- und die SPACE- 
Tasten wiederholt, so wie’s 
im Prinzip der C 64 kann. 
Soll überhaupt keine Ta- 


EL 


Der beste Homecomputer, 


den Commodore je gebaut 
hat: der 128 PC. Er stellt 
gleich drei verschiedene 


Systeme in einem Gehäuse 


dar. 


‚ste wiederheit werden. 
so dürfen Sie lediglich < das. 
6. Bit einschalten, also 
“POKE 2594 64“. 

Im 80- Zeichenmodus: 
können Sie auch Ihren 
Cursor wie bei einem 
professionellen PC aus- 
sehen lasseı. — in Strich- 
darstellung. Der Befehl 
dazu lautet: 

'POKE 2603,71. 


LISTSCHUTZ BEI 
BASIC-PROG RAMMEN 


Schon seit Zeiten des. 

C 64 waren viele ‚Freaks‘ 
. bemüht, neugierigen Zeit- 
genossen Einblick in ihre 
Programmierarbeit zu Ver- 
wehren. 
LIST- (und KOPIER- 
Schutz) haben eine Per- 


fektion erreicht, die nur. 
noch von ausgefuchste- 
ren Usern „geknackt“ 
und überlistet wird. Nun, 
darum wollen wir uns 
hier nicht kümmern, son- 
dern Ihnen lediglich eini- 
ge Anregungen bieten, 
wie Sie unter Verwen- 
dung von System-Adres- 
sen und POKESs auch ei- 
nen leidlichen LIST- 
Schutz erreichen können. 
Wichtig ist hierbei, daß 


es sich ses um Be- 
fehle handelt, die in den 
ersten Zeilen Ihres Pro- 


 gramms untergebracht 


werden sollten, um nach 
dem Start mit “RUN“ 
sofort Ihre Wirkung zu 
bekommen. Falls das Pro- 
gramm nach dem Laden 
nicht sofort gestartet 
wird (auch mit einem 
„Autostarter‘“ möglich), 
ist es natürlich jederzeit 
list- und veränderbar! 

Der Inhalt von vier Adres- 
sen in der erweiterten 
Zeropage des C 128 kann 
für unsere „Manipulatio- 
nen‘ verwendet werden: 


774 Low-Byte LIST- 
Routine 

775 High-Byte LIST- 
Routine 


808 Low-Byte Interrupt- 
Routine | 

809 High-Byte Interrupt- 
Routine 


Diese Adressen haben im 


Low- und High-Byte-For- 
mat die Einsprungstelle 


im Betriebssystem abge- 


speichert, die der C 128 
aufrufen muß, um die 
LIST- oder die Interrupt- 
(Unterbrechungs-)Jroutine 


im ROM abarbeiten zu 


können. Schreiben Sie i ein 


diese „Merk “-Stellen einen 


anderen Wert (meist ge- 
nügt schon die Speicher- 


stelle für das Low-Byte), 


werden auch andere Sy- 
stemroutinen aufgerufen, 
die etwas ganz au 


| bewirken. 
| POKE 774,0: POKE 


175,224 

(bei Eingabe von List“ 
wird ein Reset, ein Sy- 
stem-Neustart durchge- 
führt, das Programm, das 
Sie ‚listen‘ wollten, ist 
gelöscht) 


POKE 774,59 

(nach “ List‘ erscheinen 
nur die Zeilennummern, 
aber kein Listing-Text) 


POKE 774,64 

(nur die erste Zeilennum- 
mer wird gelistet, das 
Programm hält an und 
der Cursor verschwindet. 
Dieser Zustand kann 


nur mit der Tastenkombi- 


nation STOP-RESTORE 
wieder aufgehoben wer- 
den) 


POKE 774,156 

(die Zeilennummer wer- 
den normal gelistet, 

der Programmtext ist je- 
doch nicht zu gebrau- 
chen!) 


POKE 774 ‚8l 
(jeder vorher verwandte 
Listschutz-Poke wird da- 


“mit hinfällig, weil dies 


der Normalinhalt dieser 
Speicherstelle ist. Es 
kann wieder normal ge- 
listet werden) 


Die wohl wirksamste 
Methode, ein Programm 
(allerdings muß es auch 
hier erst gestartet wer- 
den) zu schützen, ist 
das „Lahmlegen“ der‘ 


 Tastenkombination 


“STOP/RESTOREF“, de- 
ren Betätigung den 


NMI- (Nicht maskierten)- 


Interrupt auslöst, mit 
dem Sie praktisch aus 
jedem laufenden Pro- 
gramm herauskommen 
sollten, egal, was es 
gerade macht. 

Hier genügt es, einfach 
die Speicherzelle 808 
zu „manipulieren“ 


POKE 808, 100 
sperrt die 


| STOP/RESTORE-Taste, 
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| Da jetzt ein laufendes 


Programm nicht mehr 
angehalten werden kann, 
Sie also nicht mehr in 
den direkten Eingabe- 
modus kommen können 
(mit blinkendem Cursor 
und der “"READY.“-An- 
zeige), bleibt nur noch, 
den Computer auszuschal- 
ten. Das Programm aber, 


das nicht gelistet werden 


sollte, ist damit auch ver- 
schwunden. Doch schließ- 
lich ist das ja der Sinn 

der Übung, stimmt’s? 
Übrigens, mit “POKE 


808,110“ stellen Sie den 


Normalzustand dieser 
Speicherstelle wieder her, 
aber den hätten Sie nach 
erneutem Einschalten des 
C 128 sowieso. 


BASIC-ZEILEN 


- VERSTECKEN 


In Verbindung mit den 
vorher genannten ‚‚Pro- 
gramm-Non-Stop“- 
POKESs, bei denen es dar- 
auf ankam, diese in einer 
der ersten Zeilen Ihres 
zu schützenden Basic- 
Programms zu verstecken, 
stört natürlich ein biß- 
chen die Tatsache, daß 
jeder ‚„Freak“‘ das 'Pro- 
gramm laden und per 
“LIST“-Befehl ce 
ten kann. Kennt er nun 
auch diese bestimmten 
POKESs, ist es ein leichtes 
für ihn, diese Zeilen zu 
löschen und das Pro- 
gramm wieder ‚jungfräu- 
lich‘“ zu gestalten. Es 
bleibt uns also gar nichts 
anderes übrig, als diese 
bestimmten Basic-Zeilen 
zu verstecken. (Das funk- 
tioniert in der folgend 
beschriebenen Weise nicht 
nur im C 128, sondern 
auch im C 64 genauso!) 
Rechts oben auf Ihrer 
Tastatur finden Sie eine 
Taste mit der Aufschrift 
“INST/DEL“. Drücken 
Sie dazu die Shift-Taste, 
da können Sie innerhalb 
einer Basic-Zeile Leerzei- 
chen einfügen, ohne 
„Shift“ passiert das Ge- 


genteil, d.h., bestehende 


Zeichen werden gelöscht. 
Gehen Sie nun beim Ge- 
nerieren der ‚‚Schutz- 


 zeile‘“ wie folgt vor: 


I SERVICE HEHE 


1) Wählen Sie eine Zeilen- 
nummer, die zwischen 
einem gewissen, von 
Ihnen gewählten Zähl- 
algorithmus liegt, z.B. 
bei einer Zehner-Zeilen- 
numerierung Zeilennum- 
mer “11° oder “12“. 

. Tippen Sie diese Zahl ein. 
Schreiben Sie dahinter 
Ihren POKE-Befehl, also 
11 POKE 808,100 
Drücken Sie jetzt die 
Shift-Taste und ca. 30- 
mal die Taste INST/DEL. 
Es tut sich nichts auf Ih- 
rem Bildschirm, stimmt’s, 
_ der Cursor bleibt trotz 
Ihres eifrigen Tasten- 
drückens immer an der- 
selben Stelle, doch das 
scheint nur so! Tippen 
Sie nun weiter einen 


Doppelpunkt, ein “REM“ 


und dahinter das Anfüh- 
rungszeichen oben. 

‚Jetzt kommt’s: tippen 
Sie nun ständig die Taste 
"DEL“ (ohne „Shift‘‘) 
und Sie stellen fest, daß 
nun eine ganze Reihe 
inverse *T““ erscheint, 
sooft, wie Sie vorher die 
SHIFT/INST-Tastenkom- 
bination betätigt haben, 
abzüglich des Platzes für 
den Doppelpunkt, das 


REM und die Anfahrines: 


zeichen. Damit haben Sie 
den Computer die An- _ 
weisung gegeben, genauso 
oft ein Zeichen in dieser 
Listingzeile zurückzuge- 
hen, wie Sie reverse ““T“ 
dort stehen haben. Die 
Zeile würde dann etwa 

so aussehen: 


11 POKE 808,100: 


REM“TTTTTTITTT 
TTTTITTTTTTTTT 
ITTTT 


_ Das letzte Anführungszei- 
‚chen hinter den ““T“s 


können Sie weglassen! 

Sie haben damit einen 
DEL-String geschaffen, 
den der Computer aber 


nicht beim Programmab- 


lauf, sondern bereits bei 
Eingabe des Befehls | 


‘ LIST“ ausführt! 


Als Maßgabe können Sie 
davon ausgehen, daß et- 


wa doppelt soviel rever- 


se “T“ hinter dem aus- 
zuführenden Zeilentext 
stehen sollten (in diesem 
Falle eben “POKE 808, 
100°), um die Zeile i in- 
klusive Zeilennummer 
vollständig verschwinden 


zu lassen. 


es 


Dieses Jahr sollten Sie allen Ihren Festtagsgrüßen etwas Besonderes 


+ mit auf den Weg geben: 


Weihnachtsmarken 


+ 


als Markenheftchen kaufen. 


7 schöne Motive - 
für Hilfe, die ihr ZI 


el erreicht. 


EEE y helfen vil.. 
Schon „eine nit. nme man a „Essen af 


So zeigt man beim Porto Herz & Verstand. INES 
+" Denn schon eine Marke hilft — viele helfen viel! 


Erhältlich nur bei den Wohlfahrtsverbänden 


5259. Rn 5259 T). 
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HI-LOW PRINT 
Grafiken und Bilder lassen sich mit dem C 128 leicht. 
mit den Befehlen des Basic 7.0 erstellen, ebenso leicht 
auf Disk speichern und wieder laden, schwieriger 


'wird’s allerdings, .. dieses ‚‚Kunstwerk“ auf einem 


Drucker auszugeben. Im Prinzip ist dies mit jedem 
möglich, der die Einzelbitgrafik integriert hat, wie 


Epson, Seikosha, Panasonic, Star usw., nur die dare 


gehörigen Befehle mitsamt den Steuerzeichencodes 
in Basic zu programmieren, ist nicht ganz so einfach, 
da der Drucker seine Bytes, die er ausdrucken soll, 
nach anderen Gesichtspunkten errechnet als der 
Grafikbildschirm. Abgesehen davon, daß eine entspre- 


chende Umrechnungsroutine erst programmiert wer- 
den muß, ist diese in Basic so langsam, daß der Bild- 


ausdruck schier endlos dauern kann. 

Die Druckroutine in Maschinensprache, die hier 
abgedruckt ist, bringt Ihnen Ihren Grafikbildschirm 
in einem Bruchteil der Zeit auf den Drucker, der 
allerdings in diesem speziellen Fall einer von Epson 
oder ein dazu kompatibler sein muß. Nach dem 
Laden und Starten des Basicladers wird das Programm 


initialisiert und belegt nun den Speicher Ihres C 128 
von Adresse 4864 bis 5357. 


Zwei Druckmöglichkeiten gibt es: 


1) Ausdruck des hochauflösenden Grafikbildschirmis z 


(egal, ob HIRES oder Multicolorgrafik) 
Aufruf mit dem Befehl: SYS 4864 


2) der aktuelle Textbildschirm wird ausgedruckt. Der 
ist nach Einschalten des Computers aktiv oder nach 
dem Befehl GRAPHICO, wenn Sie aus dem hoch-- 
auflösenden Modus wieder zurückgekehrt sind. 
Aufruf mit: SYS 5254 

Für welche Ausdruckmöglichkeit Sie sich auch ent- 

scheiden, die beiden genannten SYS-Befehle, im 

Direktmodus oder per Programm eingegeben, ma- 

chen’s möglich. Zum Unterprogramm für den Aus- 

druck des Textbildschirms ist noch zu erwähnen, daß 
hier grundsätzlich der Groß- [Blockschriftmodus ein- 
gestellt ist. Zuständig dafür ist die Speicherstelle 

5259, hier steht eine ‚‚0‘. Das bedeutet nichts ande- 

res als die Sekundäradresse „Null“ beim Öffnen des 

Druckerkanals. Falls Sie z.B. für die Klein-/Groß- 

schrift eine andere Sekundäradresse benötigen, etwa 

1“, so POKEn Sie bitte diese Zahl nach der Initiali- 

sierung von „Hi-Low-Print“ in die anna r* 

(hb 


128 


| 4, aß,80, 


HI-LOW-Print. 


188 
118 


high resolution/ 

low resolution 
hardcopy 128 pc 

rem nur 48-zeichenmodusi 
rem (c) commodors welt/hb 
rem =======--=--=-=-2002000- 
rem hir. hardcopy-=sys 4864 
rem lor.hardcopy=sys 5254 


rem =========-=-==22=2==2=2=2=== 
rem druck- sekundaeradresse 
rem fuer lores-hardcopy 
rem auf grosschrift 

rem eingestellt ! (=8) 
rem aendern:$ 148b (5259). 
rem (5.data in zeile 4180) 
rem direkt aendern im 

rem listing oder: 

rem nach ‚Initislisierung 
‚rem mit ’run’ 

rem 


m ”poke 5259, zahl” 
rem | 


rem 
rem 
rem 
121 
130 
148 
158 
168 
178 
188 
198 
191 
. 192 
298 
218 
211 
212 
213 
214 
215 
228 
238 
ei,dec{d$) :next:new 


248 data85,5b,ad,69,14, f8,22,7 
8,39, ff,8d ‚a3, dd, ad ‚02 ‚dd, 89,8 


4,84,82,dd,ad, 88 

2509 datadd, 09,04,8d4,80,dd,a9, ne 
8,8d,0d,dd,ad, Bd. dd, SB, Ac, aa, 1 
3; 20, cc,ff,a9,04 

268 ee ‚6a, 14, ac,6b, 1a, 28, b 
a,ff,a9, vQ, 28, ‚bd, ff ‚20, c®, Es „a 
"2, Da, 20,09, ff,a9 

278 datada. 85 ,5e ‚38,83,28,22,1 
4,39, 80, 8s, Sf, 39, 02, 85, 68, a5, 5 
b,29,c#, de, 94,46 Zu 

288 datasf. 46,68,35,5b,29,807,a 
2, 88,280,39,14,a5,5b,38,03,4a ‚a 
a, 4a, 29,07,2,82 


290 c data28,38. 14,29,19,88,5c,a 
5,5f,30,08,a8,14,39,20,20,47,1 


'4,88,d0,fa.ad, 08 
388 data28,22,14,a5, 5f,20,47,1 
4,85,60, >20, 47, 14,389, 28, 85,5d, ‚7 
8,39,34,85,901,a8 
j 318 data®?. b1,57,99, 7d, 14,88,1 
 8,f8,a9, 37, 85, 01 ‚58, a, 57, 18, 6 
9,88,85,57,980,02 
328 dataes ‚58,20,08,32,88,3e,? 
d,14,08,2a ‚eB, ‚28, 24, 5b,30,06,e 
0,08,d8,f1,f0,088 


338 data2a ‚eA,5Se,dd,ea,28, a7, 1 


4,20,47, 14, 88, dB, df, c6, 5d ‚dB, b 
a,35, Sf, 10, 26,a2 

248 dataı ‚b4,57,b5,59,95,57,9 
4,59,ca, 10, f5,05,5e,49,8c ‚85, 5 
(=) ‚c9, 94,f0,80f,05 | 

358 data5b ‚38, 03 ‚4c,97, 13, aß, a 
0,20, 22, 14, ac. ‚7a, 13, c6,5c,d8,f 
29,22, 14 


fori-4864t05357: readd$: pok 


<lb> 
et 


<em>. 


<jn> 


<bj> 


- <md> 


<nf> 
<jf> 
<fk> 


<om> 


u 


368 dataad, Dd, 28,22,14 ‚2B,oc, f 


f,a9,04,20,c3,ff,68, b9, 6c, 14, c 
9,ff,f8,86,20,47 | 
378 datala, 'c8,dd,f3, so, ad ‚06, d 
9,96,1f,f®, 83, 88,d@, EN, ag, 098,9 
5,57,18,69,28, 88° 


388 data1B, fb,95,58 ‚68,0e,69, 1 
4,d8,83,4c,d2,ff,48,8d,01,dd,a 


d,88,dd ‚29, fb,8d 


398 detaoa. ‚dd,89,04, Bd, B8,dd,a 


d,8d,dd,29,18,f8,f9, 68, 6D, 20, [ 4) 
4,81,8d4,8a,ff, 1b f 
408 dataa3, 17, rrf,rfrf, Bas, 94,f 


f,ff,1b,32,ff,ff,80,00,008,00,0 


0,00,00,00,080,a9 


418 data?f, a2,94 ’a0,00,20,ba,f 


f,29,00,20,bd,ff,28. 
3,a9,08,85,fd,a9 
428 data84,85,fe,a2,7f,28,c9,f 
f,32,19,39,0d,28 Be 
f,f8,31,08,88,b1 

430 datard ‚8S5S,fc,29, 3f ‚86,fc,2 
4,fc,18, a2, 89, 38. 78, a2, 89. a8, 2 
DO, d2, ff,c8,c0,28 

448 datad®.e6. 98,18,65,fd,85,f 
d,98,82,e6,fe,ca,d®@,cd, 39,8d ‚2 
8,d2,ff,28,cc,ff 

450 Er: ‚7f,4c,c3,ff,c9,08,d 
a,f2,68, 0,f2,68,88 ae 


cd, ff,b8,4 


<fl> 
<ak> 


<ck> 


_„<bb> 


<oj> 
<me> 
<fa> 
<oh> 


<oo> 


<bj> 


BLISTINGS u 


Der C128 ist aufgrund seiner grafischen 
Fähigkeiten und den recht komfortablen Befehlen 
Br dafür sehr beliebt. 


Einen Haken hat das Ganze: Grafik können Sie nur in 
Verbindung mit dem 40-Zeichen-Bildschirm darstellen. 
Sagen wir besser, konnten, denn mit diesem Programm. 
. geht’s nun auch im 80- Zeichen-Modus und einer Auflö- 
sung von 640 x 200 Bildpunkten. 
Tippen Sie dazu bitte das Hauptprogramm ab, starten es 
und geben dann in diesem Modus das Listing des Demo- 
Programmes ein. Sie werden staunen. 
Beachten Sie aber bitte unbedingt: Das Demo-Programm 
darf nur im aktiven Modus der BASIC-Erweiterung ein- 
gegeben, gespeichert und geladen werden, da sonst ver- 
‚schiedene neue Befehle nicht richtig interpretiert 
werden. 
Wenn Sie sich das Listing dieses Beispielprogramms ein 
wenig näher betrachten, wird es ein Leichtes für Sie sein, 
selbst solche Grafik-Demos mit den zusätzlichen Befeh- 
len (es sind genau achtzehn) dieser BASIC-Erweiterung 
speziell mit dem VDC-Chip zu erstellen. 
VDC-BASIC belegt den Speicher des C128 von $1300 _ 
EL bis $1B86 (7046) und $BFOO (48896) bis 

FF0O0 (65280) in BANK 0. Diese BASIC-Erweiterung 
unterstützt die Fähigkeiten des VDC 8563. 
Dabei behindert es, auch wenn es im Speicher steht, in 
keiner Weise die Funktionen des VIC-II-Chips für die 
40-Zeichen-Grafik oder andere Fähigkeiten Ihres C128. 


Ps = . De 
SE SS | 


wvreg a | 
Beschreibt das angegebene VDC-Register mit dem von 


Ihnen angegebenen Wert, beispielsweise WVREG 25, 
128 (schaltet die hochauflösende Grafik im 80-Zeichen- 
Bildschirm ein). Folgende Befehlssequenz wird dadurch 
ersetzt: POKE 54784,25: POKE 54785,128 


Lediglich könnten bei Floppy-Operationen dann Schwie- rvreg 


rigkeiten entstehen, wenn Sie entsprechende Befehle ab- 
. gekürzt eingegeben haben. Am besten schreiben Sie die- 
se Anweisungen alle aus. | 


- DIE NEUEN BEFEHLE VON VDC- BASIC 


old 

Stellt nach einem New oder Reset ein BASIC- Programm 
wieder her, wenn das Programm weder physikalisch ge- 

löscht, noch der Zeiger auf den Amans des BASIC-Pro- 

| grammes geändert wurde. 


find 

Zum Beispiel find Begriff oder find “Begriff “ listet alle 
Zeichen auf dem Bildschirm, in denen der Begriff hinter 
find vorkommt. Allerdings, Suchbegriffe, die in Ihrem 
Programm als String stehen, also in Anführungszeichen, 
mussen auch beı der kınd-Anweisung ın solchen stehen. 
Falls Sie einen Text suchen, der in Anführungszeichen 
steht, fährt der Computer in der Zeile nach dem zwei- 
ten Anführungszeichen fort. | 


off 
- Damit wird VDCBASIC abgeschaltet und der belegte 
RAM- Bereich wieder freigegeben. 


‚screen 
POKE aut das VDC- RAM. 


inser 
PEEK für das VDC- RAM. 


Gibt den Inhalt eines Registers aus. | 
Nach unserem vorstehenden Beispiel ergibt ein rvreg 25 


die Zahl 128. 


FUNKTIONEN 


low (Zahl) 
Liefert das Low-Byte eines Wertes. 


high (Zahl) 
Zeigt das High-Byte an. 


DIE GRAFIK-BEFEHLE 


gron 


‚Schaltet den hochauflösenden Grafik-Modus (640 x 200 


Bildpunkte) im 80-Zeichen-Bildmodus ein. Der Bild- 
schirm wird gleichzeitig gelöscht. 


groff 

Mit diesem Befehl Wird der 80- Zeichen-Grafikmodus. 
wieder ausgeschaltet, der Zeichensatz erneut kopiert und 
der Bildschirm gelöscht. Sie befinden sich dann wieder 
im 80-Zeichen-Textmodus (so wie Sie es nach dem Ein- 
schalten Ihres C128 gewöhnt sind). 


Folgende neue Befehle haben dieselbe Schreibweise 
(=Syntax) wie die bekannten des BASIC 7.0 im 40-Zei- 
chen-Modus, allerdings haben Sie jetzt 640 Pixel in der 
horizontalen Richtung zur Verfügung. Lediglich beim 
Bitte lesen Sie weiter auf Seite I 7 | 


FRE PRR SEEN N ARERTERENGEN nn nn nee en aa 
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18 rem vdc-basic.128 

280 rem by martin ilse 

38 rem (c) commodore-welt 
48 rem 8B8- -zeichenmodus mit 
58 rem rgb- monitor 


609 un 


‚198 fori= 486407046: readd$: pakei, d 


_. ec(d$) :next:sys4864:new 


181 dataa9,ff,85,fe,a9,f8,85,fd,a9 
‚fd,8d,b9, 22, ad, B1 nad 15, a2, IF, 28, 


<cg> 
<eb> 


<ld> 


<bd> 


<na> 


<bl> 


<]m> 


af, 22, 88, a2, 78. 29, Or, >0, af, 22, Bc, ru 


2, 12 ‚20, 24, ca ‚a2 ‚bf, Be, 13, 12, 28, 7d 
‚Fr, ad, 13, 13, db ‚Be, DS | 

182 data93, 28, d6, c4, c3,28,2d,28,c2 
‚41,53, 49, 43, 28, 28, 38, 38, De, 38, 32, 

2e, 31 ‚39, 38, 38 ‚29, 20, 46, 20, 31 ‚2e, 3 
2,04,00,a2,05,bd,6a,13,9d,00,03,ca 

,ı18,f7,39,bb,a2,13,8d 

183 datafe. 02, Be ‚fd ‚02,60,78,13,96 
‚13,ac, 13, 85, fc ‚a9, 13, ad,ca ‚2®, 02, 

23, 98, Be, 2. 28, 29, IF, 29, 28, c, b2, 2 

3, 25, fc ‚dc ‚26 ‚a3, 29, 14, 28, 26, 28, 02 
‚43,90, F2, a2, Fr] dB, 27 | 


104 data29, af, 09, 88, ed,fB, 08, 88,89 


‚13,ad,ca, ac, 66 51, aa, a8, 26, a9, 14, 
dB, F6 ‚29, ar, Ba, 8, b9, 3e, 14, a8, b9, 3 
d, 1a ‚48 ‚Ac, 88, 23, 29, ar, Ba ‚a8, b9, 60 

‚14, a8, b9, SF, 14, a8, dc 
185 dataS6, 79, 56, dc ‚4f,43,41,54,c5 
‚47,40,04,46,49,4e,04,4#,46,c6,56, 
'42,4f,d8,53,43,52, 45,45,ce,56,43,4 
f; a ar, d2 ‚7, 52, ar, ce ‚47, 52, a3, ‘dc 

‚d2, 47, 52, af ‚46 ‚c6, 57 
106 data56, 52, a5, 7, 56 ‚44,52,41,d? 
‚56,43,49,52,43,40,c5,56,44,43,53, 
41,56,c5,56,44,43,40,4f,41,c4,00,d 
'4,ce,d4,2d,d3,4f,46,54,57,4f,52,4b 

‚08,49,4e,53,43,d2,56 

107 data52, 4, Ar, da, 52,56,52,45,c? 

‚dc ‚ar, d?, 48, a9, 47, cB, 20 ‚59, ta, 69, 
14, #6, ia, 31, 15, 2b, 19, 71, 14, Be, = f 
e ‚15, 5d, 15, 86, 15 ’g8, 15, b3, 15, 75, 18 
‚94, 1a,b2,1a,08 ‚dA, ce 
108 datad4, aa, 14, 54, 18,97,14,8f,14 
97,14,08, a8, B ‚98, 91 ‚2d, Ac, 85 ‚Se; 


.d,32, 17, en 16, Bd, 33, 17, 28, 47, 17, a5 
‚Fe ‚dc, ‚da, la ‚Ac, 28, 7d | 

109 data2®, ba, 14, a5, 16, dc e3) 14, 208 

‚b4,14,85, 17 ‚de ei 14, 28, ba, 14, 25, 


17, dp, 21 ‚a5, 16 ‚eg, 25, bo, 1b ‚aa, 28, 5 
4, 1a ‚dc ‚ea, 14 ‚68, a8 ‚68, a8, a5, 17, a8 


55 16 ‚18, 98, 8, Ba, 48 
| 118 data29, da, 97 ‚Ac, 15,88,4c,28,7d 
. ‚20, b4,14, 5, 17, c9, 28, bB, fa, c6, 16, 


a6, 16, eB, de, 22, c6, 17, 28, fb, 14, 28, FE 


<ho>. 


<ep> 


<b> 


ea 


<lc> 


<pb> 


<mn> 


.20,03,88, 86, fc,85,17,09,40,b0,10,8. 


<hf> 


ei 


b, 14, a8, 68, 85, 16, 68 ‚85, 17, c®, 28, #0 


Er 


‚03,40,d4,84,a2,84,95 | 
ar data63, ca, 18, Fb ‚68,68,60,82,13 
‚85,16,28B, dc, 18, a2, 12, 5, 17, >8, re 


‚'1a,28, 52, 1a, ‚dc ‚52, 1a, a2, 7, ‚76, 9a, d 


8, 20, a2, 02, 20, 29, e1,20,93, eB, 20, 56 
‚ed, 28, DD, cd, 20 ‚7a ur 


112 data29, 51 ‚a2, >8 ‚45,48,20,00,13 


‚4c,2f,48, 20, BD, 83, 28, 51 ‚42, a2, FF, 
Be, 13, 12, 39, 22, Bd, 10, 13, 29, 24, Bd, 4 
a, 13, 39 ‚äc, dd, 1b, 13, Ac, 08, 13, a2, 19 

‚20 ‚54, 1a ‚29, 88, 29, br 
113 dataße, 37, 17, >0 ‚ac ‚1a,20,61.18 
‚a2,18,20,54,18,29,7f,20,40,1a,a2, 
13,a9,00,20,4c,13,a0,40,a2,12,98,2 
0,40,1a,a9,00,20,4a,1a,ca,28,4c,la 
‚88,18,ee,60,a2,00,8e 
114 data37,17,a2,19,20,54,1a,09,48 

‚29,7f,28 ‚A, 1a ‚28, dc, on 28, de ne 


68, 28, F4, 87, eB, 25, bB, Ob, 86, fc, 28, (1) 
9, 88, Ba ab, fc ‚dc ‚ac, 18, dc, 28 ‚2d, 29 


‚01 ‚Bd, 36, 17, 28, De, 18 
115 datafß, 08, 28, 86, 03,d0,03,4c,e6 
‚16,20,86, 23, c9, dc ‚+8, Ds, c9, a4, FB, 
B1 ‚68, 18, 28, 88 ‚a3, a2, Ba, 20, 0, ge, 8 


6, fc ‚68, Ty 6, 28, Fa, 15, ic, 66, 15, 28 


‚f2, 9d ‚28, ba, 18, a6 ‚fc 
116 data20, e6, 16, de, c6,15, 28, 6a, 18 
‚a9,00,8d, 24, 17, Bd ‚25, 17, 8d ‚26, 17, 
ad,2c, 17 ‚ac, 24, 17, 38, 28, 17, a8, g 
8, ed, 29, 17 ‚as, 8, Ba ‚28, 28, ge ‚9d, Bd 
18, 17, Bc, 1b, 17, 10, 23 | 
117 dataee,24,17,ad,2e, 17,a0,2f,17 
‚38,ed,28,17,a8,98,ed,2b,17,38,08, 
82,28,20,9c,9d,8d,1c,17,8c,1d, 17,1 
0,83,ee,25,17,cc,1b,17,98,0c,d®,85 
‚cd,13,17,98,05,39,02 
118 data8d,26,17,ad,26,17,49,02,8d 
‚27,17,aa,bd,1a,17,bc,1b,17,0a,8d, 
1e,17,98,28,8d,1f,17,a8,ad,1e,17,a 
e,26,17,38,fd,18,17,8d,22,17,98, fd 
‚16,17,8d,23,17,a8,ad 
119 data22,17,38,fd,1a,17,8d,28, 17 


‚98, fd,1b,17,8d,21,17,4c,b9, 16,20, 


e7,17,8d,23,17,30,3e,20,06,18,ad,2 
v, 17 ‚ac, 21, 17, 18, 6d, 22, 17 ‚dd, 22, 1 
‚98, 6d ‚23, 17, Bd, 23, 17 

120 data2d, 06, 16, ae,26,17,bd,28, 17 
‚dd,2c,17,d0,d3,bd,29,17,dd,2d, 17, 

d®,cb,20,f2,9d,ad,36,17,d0,01,60,a 

9,00,8d,36,17,4c,e6,16,ad,1e,17,ac 
‚1f,17,4c,38,16, 20,40 

121 data17, ad, Sb, x ‚8d,6c,11,f®,28 
‚20,f1,19, 20, 28, 17, ac, Fa, 17, ad; 29, 
17, c9, 83, bB, 17 ‚c9, 82, da, 87, ad, 28, 


er c9, 80, bB, %c, ad, 2b, 17, dB, 87, = 2a 


‚17, 09, 08, 98, 21 ‚38, 60 
122 datadd, DB, 08, 28, 00,00,08, 20, vo 
‚08,00,00, 28, DB, ‚o8, oe, 08, 28 ‚aD, 28, 


<]n>. 


<pi>. 


<ho> 


<ii> 


<ip> 


<ei> 


<eb> 


<nh> 


<gJ> 


<ec>. 


<fl> 


<mh> 


00,08, 20 ‚00,00,00,08, 00,00, DD, ar, b 


f ‚dr, ef, f7 ‚Fb, fd, fe ‚28, Fa, 16, bo, da e 
<ok> 


‚ad, 28, 17, Bd, 31, 17, 9 

123 data®7, Bd, 34, 17, ad, 29,17, 8d, 30 
‚17,ad,2a, 17, Bd, 33, 17, 39, 28, Bd, 32, 
17, 33, 17 Ye 33, 17, de ‚32, 17, Be. 3 

3, 17, 2e ‚32, 17, 6d, 33, 17, Bd, 33, 17, 98 
‚83, ee, 32, 17, a2, 84 ‚de “ 

124 data33, 17, de ‚32, 17,ca,dd,f? ‚a2 
‚083,18,4e, 30, 17, Be, 31, 17, ca ‚dß, F6, 
er 31, 17, 18 ‚6d ‚33, 17, Bd ‚33, 17, 98, D 
3, 3% ‚32, 17 ‚28, 47, 17, 28, 52, 18, ae, 34 

‚17, a4, 83, dB, 18, ac ‚35 
125 data17, rB, 19, c®, B2, fo, 09, 3d, ic 
‚9d,a8,f®, 22, 30 ‚o ‚68 ‚5d, Ic, 9d ac, 
cf, 17, 1d, ie Id ‚Ac 17, 3d, 38, 17,4 
B, 28, 47, 17, 68, Ac ‚4a, la ‚a2, 12, ad, 32 
‚17, >8, ic, 18, a2, 13, = 
126 data33, 17, Be 20: 18,3d,26,17,d® 
‚1f,ae,24,17,d0,89,ee,28,17,d0,83, 
ee,29,17,68,8d,28,17,d0,03,ce,29,1 


<di> 


<pi> 


<pj> 


?,ce,28,17,60,ac,26,17,d0,e1,ac,25 


‚17,d80,09,ee,2a,17,d® 

127 dataß3,ee,2b,17,60,3d,2a,17,d® 
‚83,ce,2b,17,ce,23,17,60,20,5c,79, 

28,d7,77,4c,15,88,ae,37,17,d®, 03,4 

C ‚29, a8, a2, DB, Be, 35, 17, eB, 86, 83° 48 
‚28, 86, 83, fo, 1 ‚c9, 2C 

128 dataf9, Bd, 68 ‚+8, 07,28,86, 83, c9 
‚a4,f0,17, 20, fa, 87, eB, 83, 98, 03 ‚Ac, 

28,7d,eB®, 02, dB, os, Be, 35, 17, a2, 20, B 

6, 83, a9, Di ‚68, a2, 87, bd, 31, E ‚9, 28 
‚17, ca, 18, f7, 68, 39, 20 

129 data20,2e, 18, a2 ‚1f,20,52,9e,208 
‚86,9e,80,54,11 ‚Bd ‚55, 11,28,86,9e, 

Bc ‚56, z ‚Bd, 57, E ‚bB, 29, = 54, rg 8 

d, 56, 1 ‚ad ‚55, 1 ‚dd, 57, 1 ‚28, B6, 9e 
‚Bc ‚Sc, z ‚Bd, 5d, 1 ‚20 

130 dataß6, ge 86 ‚Se, 11,8d4,5f,11,28 

‚06, 9e,85,77,98,.4,77,20,77,9a,.2, 

2d,a0,2b,20,7c,9d,98,®e, 8a9,68,30,0 
1 ‚28, 78, dd, dd, 31, 1 ‚98, 4, 2, 2 ‚a2 
‚03, bd ‚54, z ‚9d ‚58, E | 


131 Hase 18, 79 ‚a9, 98,28, f3,93,a2 


‚87,bd,54, 1 ‚9d, 68, 1 ‚ca, 1D, f7, 20, 
58, 67 ‚28, 2, 9d ‚a2, 82, 28, te, ge, 88, q 
B, 03, de, 28, 74 FB: 28, 12, 18, ad, 20, 12 
..6d, SC, 1 ‚Bd, Sc, 4 ‚90 


<30> | 


<lp> 


<kh> 


<mo> 


<ok> 


<gm> 


132 dataB3, ee ‚5d, 1 ‚a2 ‚2d,aß, 2b, 20 


‚7c,9d,bB, 89, 20, 58, 67, 20, FA, 15, dc, 


84, 19, ad, 24, 20, 52, 67 ‚dc ‚FA, 15, h Ä 


2, 20, De, 18, a2, IF, 28, 6d, ge ‚a2, >b ‚20 
‚52,9e ‚28, 86, 9e ‚Bc,54 

133 data1! ‚84,55,11 "28.,10,98,00.02 

‚90,83,4c,28,?d,8e,60,11,85,48,28, 

89,63,68,d0,1c,f0,03,20,0b,64,20,f 
4,15,8d,48,11,d0,75,a2,04,bd,5b, 11 

 ,9d,38,11,ca,d@,f7,8e 


<ea> 


<lp> 
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134 dataße, 11,60,ae,35, 17,0, ‚08, a2 


‚08,8e,6c, 1 Be. 28 ‚2d se oo, ‘ad ‚a9, 
E ‚Aa, 98, 02, a2, 82, ba, 68, re ‚8d ‚Sa, r 


1 ‚bd, 61 Er ‚Bd, Sb, 11, ;89, DB, a2 ‚03, 94 


‚56, z ‚ca, 18, dä se 27 
135 datandı. 31, re ‚48,ca, 10, f9 ‚20, f4 
‚15,82, DB, 68 ‚9d, 31, re ‚eB, ed, 28, dB, 


+$97,0d ‚Sa,tı ‚d®,05,ce ‚5b,11 ‚30,33,0 
e ‚Sa, 11 ‚a2, 25, 38, 1b ‚ad, 19, 14 ‚da, 90 


‚02, ad, 19, a9, 20, ‚da ‚48 
136 data28, 6d, 9, dd, 31,11,98,9d, 32 
‚11,68,90, 82, 89, a0, e8 ‚ed, a8, 19, de, 
a9, 1 ‚98, 02, sB, Ib, De, a9, 1 ‚ed, 27, r 
Bd, dd ‚ad: 86 ‚da, fB, bd ‚90, 08, fe, 31, E 
‚dd, 03, eo, 32, E ‚Ba, ca 
137 dataca, 10,f1,30,95,a2,12,20.54 
‚18,29,07,85,fc,20,3a,1a,86,fd,2®, 
>c,79,20,38,1a,18,88,69,68,42,23,2 
D,4c,1a,a6,fd,bd,4c,6a,0a,0a,8a,0a 
‚85,fc,a2,1a,4c,4c,la 
138 data28,f4,87,e0,11,bB, 06,e8,88 
‚f8,82,ca ‚68, Ac ‚28 ‚2d ‚a2, ıF, 20 ‚45, 
a8, ae ce N 32, IF, 28, a5, a6, ae: da; c 


d,ae, 37, 17, dB, 83, Ac ‚29, a8, ie ‚58 ‚69 


‚20, f7, 87 ‚ed, 02, 98, 10 


139 datafd, 03, Ac ‚28 ‚7d,28,e4,1a,9® 


‚082,80,00, 29, 28, FB, Da, Ba, Da, aa ‚bd, 
28, 17 = bd, 29, 17, cB, 28, 40 ‚07, c9, 2 


B, dB, 03, dc ‚ri, 1a, 18, dc ‚c9, Ba, >@ ‚di 


la ‚20 ‚d8 ‚cd, a2, 3f, Be 


140 data@Q,fF,91,#o ‚a2,00,8e,00,ff 


‚c8B,dßd,ee,e6,fd, 5, fd, c9,ff,d®,e6, 


“4 


<eh> 


<an> 


<pf> 


kp 


<nm> 


60,28, d1, 1a, > 3F Be, 28, FF, b1 EN a 


2, 28, Be ‚08, FF, 28, ca ed c8, dB, ee, e6 
‚fd, a5, Fo ‚9, FF, dB, 26 


‚a2,12,28, Ac, ia, eB, 20, cc ed 58, 60, 
82,01 ee 35, 17, ca ‚86, 83, 20, Fa, 16, 9 


D, 21 ‚60, 28, e6, 16, 18, 68, 20, 83, 1b Er 


‚ar, a2, @o, 86, fb ‚c9, 22 


142 datad®,11,e6,fb,20,7d,1b,c9 ‚22 


‚dd,08,a4 ‚Fb ‚*O, 04, 28, BB, 03, 98, 94, 


DB, Ob, e8, c9, DB, dB, e9, a5, De, a6: 2d ‚a 
BD, 21 ‚de, 1d, 28, 98, 55, a8, 02, 28, ‚ec ‚42 


‚aa, cB, >8, ec ‚a2, 28, 25 
143 datası ‚2®, b5 ‚Ab, 38,00,20,ec,42 
‚aa,cd,208,ec, a2, 85, 62, 86, 61 ‚20 ec, 


<np> 
141 data68, a9, bF, 85, fd,39,00,85 er 


<bi> 


eng> 


42,d0,12,68, c8,e8,bd, 00 ‚@b,r0,d2 2: 
D,ec,42,dd, 80, 8b ‚FO,f1 ‚dB, 10,88,84 


“os ‚ad, 24, a2, 28, 28, ec 

144 datad2, +0, cr, c9, 22,dd, 06, 89,01. 
‚45,fa,85, Fa ‚a5 *B 05, Fa ‚fB, ds. cB, 

dB, 66, 60, e6, 3d ‚dB, 22, e6, 3e ‚dc, c9, h 


3,# 


<1lm 


<aj> 


Demo VDC-Baslio 


I rem vdc-basic.demo 


<nf> 
2 rem by martin ilse. <o0j> 
3 rem (c) commodore welt ac? 
18 fast:gron <hg> 
11 pi=2. 14159265 <fg> 
28 color6,?:vcolor6, 1 <ol> 
380 vdraw1,®, 100t0639, 180 <dl> 
48 fori=. t089. Sstep. 5: a=sin(i/180* 
pi)*100:b=i*16/9:vdraw1,319-b, 108- 
a:vdraw1,b, 188-a:vdraw1,639-b, 100+ 
a:vdraw1,320+b, 180+a <1j> 
58 vdraw1,159.5-b, 188-a:vdraw1, 1608 
+b, 188+a:vdraw1,499-b, 180+a:vdraw! 
‚480+b, 100-a: nexti | <ci> 
68 De groff: printehr$( 11)chr$ 
(14) chr$(5)chr$( 147) "Zur Fortsetzu 
ng Taste druecken.":getkeya$:gron: 
vdcload <ih> 
78 poke208,.:do: vdraw2,639, 100t02, 
‚188: loopuntilpeek( 288) >. <mc> 
80 getkeya$:grcelr <mb> 
98 vcolor2,! <kp> 
1080 poke208,.:a=90:do <gp> 
118 fori=18t01808stepS:vcircle2, 168 
‚188,i,i,,,i,a:vcircle2,4880,180,i, 
-1,,51.a:naXti. <ip> 
128 loopuntilpeek(288)>. <nn> 
190 getkeya$:grelr: vcolor 11,1 <jh> 
148 poke288,.:do | <od> 
158 fori=.t036®0step18:vbox2, 120,50 
‚528, 158,i:vcolor1+i/24,1:nexti <mo> 
168 loopuntilpeek(208)>. <ea> 
170 getkeya$:grelr:vcolor12, 1 <kb> 
188 poke2D8,. :do <il> 
198 i=.:do:i=i+i/1ß+1: vlocatei#3. 2 
‚i:vbox2,+i,+i:forj=ito4®:nextj: 9 
opuntili>= -208 <li> 
288 loopuntilpeek(288)>. <ca> 
218 getkeya$ß:grelr <bc> 
228 vcolor2,1:color6, 1 <cm’ 
230 fori=.to1d00 | <chb> 
248 vdrawi,rnd(ti)*648,rnd(ti)*2808 <bi> 
258 nexti:vdrawß, 14, 16t018,15:a=vr 
 dot(8) :b=vrdot( 1) :c=vrdot(2) <fl> 
260 fori=49to.step-.1:wvreg35,46+i | 
:wvreg34, 49-i:nexti:fori=.t0299:ne 
xti <cd>. 
‚270 fori=. to47step. 1: wureg3S, 46+i: 
wvreg34,49-i:nexti: wvreg34, 125: wur 
eg35, 100 _ <nm> 
280 poke288,..:getkeyaß:groff <am> 
<af> 


290 printa,b,c 


Fortsetzung von Seite 34 


ersten Parameter nach der Anweisung, mit der Sie nor- 


 malerweise die Farbquelle einschalten (dies kann eine 
Zahl von O bis 4 sein) ergeben sich diese Anderungen; 


Es sind nur Zahlen von O bis 2 möglich, wobei diese i im 
einzelnen bedeuten: 
0 = löschen, also unsichtbar zeichnen, mit der Hinter- 
erundfarbe, | 
1 = nn zeichnen, mit der Farbe des Vordergrun- 
es 


. 2 = invertieren. 


vdraw 

Zum Beispiel VDRAW 1,0,100 TO 639,100 

zeichnet eine Linie in der Bildschirmmitte vom linken 
bis zum rechten Bildschirmrand. | 


veircle 

Zum Beispiel VCIRCLE 1, 320, 100,.60 

zeichnet einen Kreis mit Mittelpunkt i in der Bildschirm- 
mitte mit einem Radius von 60 SUBDUDNEN 


vbox 
Zum Beispiel VBOX 1,50,50,100,100 
zeichnet ein Rechteck. 


vlocate 
Zum Beispiel LOCATE 320, 100 


‚setzt den „grafischen Cursor“ (den Sie nie zu Gesicht 
bekommen) genau in die Bildschirmmitte. 


vdcsave 

Der Inhalt des VDC-RAMs in Bank O0 wird in den RAM- 
Bereich $BF00 bis $FFOO übertragen. 

Nunmehr können Sie Ihre Grafik mit folgendem Befehl 
als binäres File auf Diskette speichern: 


BSAVE“(Bildname)“, ON BO, P48896 TO P 65280 


Ganz einfach wie bei der 40-Zeichen-Grafik kann so ein 
Bild-File wieder geladen werden: 

BLOAD“(Bildname)“ 

Um es aber dann auch zu sehen, müssen Sie den näch- 


sten Befehl eingeben: 


vdcload Ä 
Der Inhalt des RAM-Bereichs $BFOO bis $FFOO wird in 
das VDC-RAM übertragen. | 


Tesler 

Im Gegensatz zur Grafik im 40-Zeichen-Modus können 
Sie hier zwei Parameter angeben: Zeichenfarbe und 
Fading, den Helligkeitsgrad dieser Zeichenfarbe. Probie- 
ren Sie ein wenig mit dieser Einstellmöglichkeit herum, 
es lassen sich interessante Effekte damit erzielen, zum 
Bun VCOLOR 7,5. 


vrdot (0—2) 

Arbeitet genauso wie bei der 40-Zeichen-Grafik. Damit 
können Sie die aktuellen Bildschirmposition des grafi- 
schen Cursors (0 = X-Richtung, 1 = Y-Richtung) und 


. den für diese Position gültigen Code der Farbquelle 


(= Farbcode) ermitteln. 


Wir könnten uns votstellen, daß es bestimmt den einen 
oder anderen an Grafik interessierten Leser gibt, der 
sich mit Hilfe dieser BASIC-Erweiterung ein Mal- und 
Zeichenprogramm für den VDC-Modus programmiert, 


"so wie es schon einige für den 40- Zeichen-Modus gibt. 


. Martin IBElRB) u 
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BTIPS & TRICKS! 


BASIC - ERWEITERUNG 


FÜR DEN 128PC: 
- BASIC7.S5 _ 


Zugegeben: Das BASIC 7.0, mit dem der C128 aus- 
gerüstet ist, ist eins der besten Exemplare dieser Com- 
putersprache für die kleinen 8-Bit-Rechner von Com- 


modore. Trotzdem sind noch einige Lücken im Be- 
 fehlswortschatz geblieben, die dieses Erweiterungs- 


| Tool schließt. 
Das Programm Basic V. 7.5 starten. Nach dem Laden 


belegt es den Bereich 5181 ($143d) bis 7167 ($1bff). 


Das Programm schreibt sich im Speicher dann an 
die benötigten Stellen und braucht dann noch den 
Speicher von 5184 ($1440) bis 7167 ($1bff) in 
Bank 0, von 996 ($3e4) bis 1007 ($3ef) in der erwei- 
terten Zeropage sowie fünf Byte in der Zeropage 
250 ($fa) — 254 ($fe), und als letztes den Bereich von 
1024 (5400) bis 1535 ($5ff) in der Bank 1 vor den 
Variablen. | | 

Somit kann dieses Programm immer betrieben wer- 

den, außer wenn die Zeiger auf diese BASIC-Erwei- 
 terung, auf eine andere Routine gesetzt werden oder 


die oben genannten Bereiche beschreibt (Zeiger: 


$2fc — 52fd und $30c — $311). Dies ist deshalb zu- 
treffend, weil die oben angegebenen Bereiche nicht 
vom Betriebssystem genutzt werden (auch die 512 
Byte in Bank 1 nicht durch Hochsetzen von einigen 


Zeigern). | 


Anzumerken wäre noch, daß diese Erweiterung 


aufgrund des Programmteils in Bank 1 bei der Selbst- 
 initialisierung alle Variablen löscht. Und, daß der 
Bereich in der Zeropage ($fa—$fe) nur als Zwischen- 
und Hilfsspeicher für die verschiedenen Routinen ge- 
nutzt wird und ansonsten frei bleibt. | 

Wichtig: Diese BASIC-Erweiterung ist Reset-fest; 
_ sie wird durch einen Reset nicht abgeschaltet. Das 
geht nur mit dem Befehl „Off‘‘ oder einer Unterbre- 
chung der Stromversorgung des Computers. 


DIE NEUEN BEFEHLE: 


(Achtung, alle Variablenoperationen funktionen nur 
bei Variablen des gleichen Typs!) 


exchange a$ and b$ | 
Tauscht den Inhalt von zwei Variablen aus, ohne eine 
‚dritte Variable zu benutzen (fünf bis 42 mal schneller. 
als eine entsprechende Operation mit let). 


exfi. a$(1),a$(10),a$(50) (exchange field) | 
Tauscht den Inhalt der Variablen von a$(1) bis a$(10) 
mit den Variablen ab a$(50) aus, ohne for-next- 
Schleife und ohne Austauschvariable, aber nur bei ein 
eindimensionalen Feldern (fünf bis 1200 mal schneller 
als eine entsprechende Operation mit let.) | 


exfi. aß(1), a$(10), a$(50) (exchange fiekl) . 
Tauscht den Inhalt der Variablen von a$(1) bis a$(10) 


mit den Variablen ab a$(50) aus, ohne for-next- 


Schleife und ohne Austauschvariable, aber nur bei 


eindimensionalen Feldern. (fünf bis 1200 mal schnel- 
ler als eine entsprechende Operation mit let). 


transfer xtoy | j | 
Vergleichbar mit y=x:x = 0, nur schneller (zwei bis 
12 mal schneller als eine entsprechende Operation mit 
let). | 


transfi. x(1),x(10) tox(30) (transfer field) 

Wie transfer, nur werden die Variablen von x(1) bis 
x(10) ab x(30) abgelegt. Dadurch spart man eine For- 
Next-Schleife und viel Zeit. Allerdings muß noch ge- 
sagt werden, daß dieser Befehl nur bei eindimensiona- 
len Feldern und bei Bereichen, die sich nicht über- 
lappen, funktioniert (dritte Variable darf nicht bei den 
Feldnummern zwischen den ersten beiden liegen), da 
es sonst zu Übertragungsfehlern kommen kann, die 
ganze Arrays löschen. (Zwei bis 350 mal schneller als 
eine entsprechende Operation mit let.) 


clear x Ä 


Löscht die Variable; 1,5 mal schneller als let. 
clfi. a$(1)toa$(100) (clear. field) u 
löscht die Variablen von a$(1) bis a$(100) ohne For- 
Next-Schleife und ist wesentlich schneller als let (1,5 
bis 32 mal schneller als eine entsprechende Opera- 
tion mit let). Ä | 


merge „Programm‘‘,8 
Syntax des Load-Befehls. | 

Bewirkt das Zuladen eines zweiten BASIC-Pro- 
grammes zu dem im Speicher vorhandenen. Die Zei- 
lennummern können nun mit Renumber verändert 
werden, denn sie müssen größer sein als die des 1. Pro- 
grammes. | = 


merge 2 | 
Mit Merge 2 werden dann die beiden Programme ver- 
knüpft, so daß der erste Teil wieder zu sehen und zu 
nutzen ist. | 


find „Text“ oder Befehl | SE 
Listet alle Zeilen, in denen der Text oder der Befehl 
hinter Find vorkommt. | 2 
Texte, die im Programm in Anführungszeichen vor- 
kommen, müssen auch jetzt in. Anführungsstrichen 
stehen, da sonst die Erweiterung nicht zwischen Be- 
fehl und Text unterscheiden kann und es so zu Falsch- 
aussagen kommt. Nach dem Find-Befehl darf kein . 
weiterer Befehl in der BASIC-Zeile stehen, da dieser 
von der Find- Routine dann als Suchobjekt angesehen 
wird. (Außer bei Text in Anführungszeichen; hier . 
wird nach dem zweiten Anführungszeichen in der 
BASIC-Zeile fortgefahren.) nn 
Anmerkung: Der Find-Befehl benutzt zur Zwi- 
schenspeicherung der Suchelemente den Berreich von 
2816 ($b00) bis 3071 ($bff), also den Kassettenpuf- 
fer und den Puffer für Boot-Operationen. 


dump | 

Mit dem Befehl Dump werden alle benutzten Variab- 
len angezeigt. Diese allerdings nur namentlich. Arrays 
werden mit Dimensionen angegeben. | 
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old Er | Bag rt as 
 Gegenbefehl zu New. Fünktionien nur, wenn seit 2 me : Auen, 2 
28 rem (c) commodore welt === <fd> 
dem New die Zeiger auf den Programmanfang nicht 39 EA EEE EEE REN 
verändert oder das Programm physikalisch gelöscht a er ==== <ae 
wurden. 48 rem (p) by martin ilse === <dg> 
| | 58 rem = === <ei> 
cuon . (cursor on) 60 rem | === <oe> 
Schaltet den Cursor beim Programmodus ein. (Nütz- | 78 rem version 7.8 48/80z. === <eo> 
lich für EIngaDeSENIEHIen mit Get- oder a 88 rem c 128 + floppy === <ji> 
fehlen.) & | 008 rem zsz====-==2==2==22, = 2emm—um— <aa> 


. coff (cursor off) 


Schaltet den Cursor aus. 188 fori=-5196t07172:readd$:pok 


ei,dec( d$) :next:sys5196:new <gd> 
181 data4c,72,16,28,cd,84,8d,& 
4,ff,b1,fa,aa,b1,49,91,fa,8a,9 
1,49,88,10,f3,6® <jf> 
182 data28, d3,84,c8,98,18, 65, f | 
c,98,082,e6,fd,85,fc,a8,808,28,8 
3,04,e6,fa,d@,82 <lm> 
103 datae6, fb,e6,49,d8,82, e6,4 
a,a5S,fd,c5,fb,30,2b,d@,e7,a5,f 

a.c5 fe.d@,e1,60 | <pa> 
104 data85,fa,84,fb,208,ed,84,c 
80,82,d8,8d,a5,fa,85,4b,a5,fb,8 | 
5,4c,20,d0,54,a0 <ag> 
185 dataB2, 84,84,ff,a9,88, 91 ‚f | 


locks (lock stop) 

Schaltet die Stop-Iaste und Stop + Restore aus. Nicht 
‚speichern, während Stop-Taste blockiert, da die Da- 
ten dabei verfälscht wurden. 


unlocks (unlock stop) 
Schaltet die Stop-Taste wieder ein. 


llist 

_ Listet das Listing im Speicher auf dem Drucker. Vor- 
eingestellt ist Geräteadresse 4, Sekundäradresse 7. 
Die Geräteadresse kann mit bank0: poke7049, Geräte- 
‚adresse und die Sekundäradresse können mit bank0: 
poke7051, Sekundäradresse geändert werden. 


a,88,10,fb,60,20,0d,84,84,fe,2 


ofinput | 0,083,04,04,fe,4c. <oe> 
Ein normaler Input. Nur wird das EESSeRSIchen unter- 186 data46,04,20,d3,04,c8,84,f 
‚ drückt. e,a4,fe,88,20,03,04,20,46,04,a 
BEE 5,fd,c5,fb,38,dd | | <be> 
a | I 187 datad®,86,a5,fa,c5,fc,f&,d | 
: Führt einen Reset durch. '5,a5,fa,18,65,fe,98,82,e6,fb,8 
5,fa,a5,49,18,65 <fn> 


lwind ste Zeile, letzte Zeile 


Wie ein Window, nur daß man die Zeilen bestimmen 108 datafe, 98,82,e6, aa, 85,49,4 

‚kann, da diese Möglichkeit viel häufiger benötigt wird | © > 78,04,28,cd,84,c8, Ba, fe,28,4 | 

als mit gleichzeitiger Änderung des Zeilenrandes. 6,04,a5,4a,c5,fb <1i> 
Der zweite Wert ist optional, das heißt bei Angabe, | 189 data38,ad,d®,86,35,fa,c5,4 

nur eines Wertes umfaßt das Window auch nur eine | 9,f®,a5,a5,fa,18,65,fe,98,82,e 

Zeile. Die Zeilenränder (linker, rechter Rand) des ak- | 6, fb,85,fa,4c,ae <bk> 

tuellen Windows werden nicht verändert. 1 1 1%) dat BA, 28,de,84,4c,ed,84,2 

0,de,84,a2,02,20,e8,84,4c,ed,® 


off | | | <cj? 
Schaltet die BASIC- -Erweiterung Basic V 7.5 ohne Re- 1,02, 08 a ne + d®,02,e6,3e,4 u 


‚set ab. Dabei wird allerdings der Bereich in Bank 1 
‚nicht freigegeben. Dieses geschieht erst bei dem näch- ‚eral,2a,a® ‚a2, a5,07,d0,07,88,. 
| 5,10,d0,02,20,04 <op> 


sten Reset. 

112 data69,009,d4,ce,d4,00,28,d 
5,85,a5,30,85,62,85,2f,4c,1b,® 
5,20,a8,05,28,fb <ff> 
113 data@5,5,61,18,69,07,90, 
2,e6,62,85,61,c5,31,d®,eb,a6,6 


screen Adresse, Wert 

Ein Bonbon für die Besitzer eines 80-Zeichen-Moni- 
tors: Ein modifiziertes Poke beschreibt das VDC- 
RAM, das normalerweise von BASIC nur sehr schwer 


zugänglich ist. Maximale Adresse 16584. 2,e4,32,d8,e5,f® <ng> 
| R | ze 114 data3b,28,38,85,39,28,28,e 

xkey 83 

Der normale Key-Befehl wurde erweitert, so daß auch 4, ee ee a — 2 a3, ae e <jo> 


115 datad5,c6, fa ‚d0,f6,39,29,2 


andere Funktionstasten wie RUN und HELP BEISHN 
| 0,04,03,20,fb,85,00,82,20,08,4 


werden können. 


Bitte lesen Sie weiter auf Seite 41 


3,a3,c8,28,808,43 
116 data65, ‚62,85, 62, 83,18,65,6 


<hc> 


"d,a5,fb,28, 


'1,908,02,e6,62,85,61 ‚c5, 33 ‚de, 
1,85,62,0C5,34,,d 

117 databb, a9,14,208, 
6,d0,68,20,32,Be,a9, 41,8d,00,F 
F ‚60,89, 77,208,d7 


118 data85, a5,fa,Ba, 69, Ba, aß, 2 


0,00,43,ao, ‚88,20, 00,43,ca, ed,f 
f, dd, 02, e9,81,28 
119. datae4, 03 4c,d5,85,a8,81,2 


0,08,43, 85, fc ‚48, 88, 20, oe, 43, 8 
5, fb, 03,98,08,68 
ı20 datada,. 98,308,a9,25,d®, 029,6 
8,03,98, na, 89,24,d®, a1 ‚98,85,f 
e4,83 
121 dataas, fc,28,e4,83,a5,fd Fr 


-8,13,4c,e4,83,a9,f8,8d,dd,85,a 


2 ,8a,bd,dc,05,9d 

122 datae4,03,ca, 18,f7,68 
f,7a,4c,88,04,20,af,7a,68 
f,208,df,98,39,41 

123 dataßd, BB,ff, 68, a9, 20, äc,e 
4,83,a2,ff,78,9a,d8,28,42,e2,2 
8,09,e1,20,93,e® 

124 data2o ‚56,e8,20,08,c0, 
3,41,20,51,42,20,45,40,20,72,1 
'6,4c,27,48,39, ff 5 


‚28,a 
‚29,7 


125 data85,fe,a9,f8,85,fd,a9,f 


d,8d,b9,82,38,81,39,16,a2, 7, 2 
D, af, 02,88,a2, 7 | 
126 dataa9, 4f,28, af, 82 ‚80,08, f 
f,84,27f,84,31,84, 33, 84, fd,28,2 
4,ca,a5,d7,d8,74 
127 data2®, 7d,ff,8d,93,8b,Be,® 
5,02,41,53,49,43,20,d6,28,37,2 
0,2e,35,28,28,d3 2 
128 data4f,46,54, 
9,43,2d,c5,52,57, 
2,55,4e,47,29,8d 
129 data3c,43,3e,28,42,59,28,d 
4,ce,d4,28,2d,28,53,4f,46,54,5 
7,47f,52,45,28,38 . | 
138 data33,2e,38,39,2e,31,39,3 
8,37,04,31,32,31,38,35, 33, 2B,c 
2,41,53,49, ‚a3, 28 
131 datac2, 59,54, a5, 53, 20, 46,5 
2,45,45,88,4c, #9, 17, 28,af,7a,4 
c,88,84,28,af,7a 
132 data6d, 28,7d,ff,8d4,93, 
e,85,28, ‚20, 28 ‚20,20,28, 20, 
a,2ca,2a, 2a ‚2a 28 
133 data2a,2a,28,28,28,28 
8,c2,41,53,49,43,28,d6,20,37,2 
e,35,20,28,d3,4f | | 
134 data46,54,2d,c2,41,53,49,4 
3,2d,c5,52,57,45,49, 54, 45, se, 5 
5,4e,47,29,280,28 
135 data28, 20,28, 


45,49,54,45,5 


0b,® 
28,2 


2e8,2a,2a,2a 2 


a,2a,2a,2a,2a,84,20,20,.20.20.2 


2d,c2,41,53,4 


e4, 83,09, 


<fb> 
<bh> 


<gn> 


<pg?> 
<pc> 
<mn> 
8.7: 1.” 


<bk> 


<na> 


<bl> | 


<jm> 


<pm> 


<dh> 


<li> 


....23g> 
‚28,2 


<cjJ> 


un 


0,28, 


144 data12, 


152 datad2, 54,52, 


0,28, 
136 data2a, 2a,2a,2a, 2a, 2a, 28, 3. 


20,28, 2a,2a 
c,43,3e,20,42,59,28, da, 
08,24,28,53,4f,46 

137 data5a, 57, 4f,52, Ab, 28 
d ‚41,52,54,49,4e,28, 
5, 29. 20,38, ‚33, 2e 
138 data3d, 39,20,31,939; 38, 37; 2 
0,2a,2a,2a,2a,2a, 2a ‚2a, 2a, ud, 2 
20, 28, 28, 28 

139 data28, 28 
a,28,28,28,28,208, 
0,31,32,31,38,35 


ce, ‚d4, 2 


20,20,20, 


148 data33,28,c2,41,53,49,43,2 


8,c2,59, 54 ‚45,53,28, 46, 52, 45, 4 
5,28,46,4f,52,28 

121 datas5 ‚53,49,4e,47, 20, 
0,28,28,28,28, 
a,23,23,08,39, 


28,2 
2a,2a,2a, ‚2a, 2a „2 
086 | 


‚28,0 
c9, Ac, ‚53, a 


<dh> 


<fb> 


‚2a,2a,23,2a,2a,2 
20,2. 


<fe> 


<bl> 


<kn> 


142 data85, 308,85,32,85,34,a2, a 


9,bd,8c, 17,9d,e4,83,ca,1®, 17, a 
2,85,86,fe,b9,4f 


143 data15,a2,41,20,0f,02,c8,d 


8,75,c6,fe,ce, 12,18, a5,fe.c9.® 


3,d8,ea,a9,15,8d 
18,208,f8,51,a2,805,b 
d,44,18,9d ‚0c,83, ca, ı@, f7, a9, 9 
5, a2, '18,8d ‚fc,82 

145 dataße ‚Fd,82,68, da, 18,708, 1 
8,86,18,85,fc,a9,18B, ad, ad ‚28,e 
2,43,98,8e,a2,808 | 
146 data29, ‚IF, 09,40,4c,b2,43,3 
5,fc,4c,26,43,89,19, ad, 1d ‚20, e 
2, a3, 99,f2,a2,ff 

147 datadd, e7,29 ‚3F,09,88, 
BO, 08, a3,39,18, ad 
2,988, id, a9, 19, da 
148 dataf6, 29,3f,Ba,a8, ‚b9, 28,1 
9,48,b9, 27, 19,48,4c,88, 03, 29, 3 
f ‚Ga,a8, b9,6b, 19 

149 data48,b9,68,19,48,4c,56,7 
9,52,45,53,45,d4, ad, 45, 52, 47,4 
5, b2, 44,45 ‚52, 47. 

158 datac5 ‚4f,4c,c4,46,49 Re! c 
4, ‚43, 55,4f,ce,43,4Af, 46, c6,45,5 
8,43,48B 4 ‚de ‚47 

151 datacs ‚45,58,46,49,ae ‚a3, 4 
c,45,41,d2,43,4c,46,49,ae ‚54,5 
2,41,4e,53,46,45 


‚ad,4c,6a,51,a 


41,4e, 46 ‚49,a 
e,4c,4f,43,4b,d3,55 ‚e,äc,. af, ‚a 


.3,4b, d3, 44,55,4Ad 
153 datadd, 47f,46,49,4e,50, 


55, d 
4,4c,40c,49,53,d4,4f,46,c6, 53, 4 
3, 52, 45,45,ce,4c 
154 data57 ‚a9, de,c4, 58 ‚4b,45,d 
9,43,47,4f,54. cf,88,49,4e,53,4 
3,d2,55,53,45,c4 


eB,f 


'<ic> 


<np> 


‚<ph> 


<bl> DE 
<oj> 


<af> 


‚<pp> 


<oo>. 


<fb> 


<b> 


<hl> 


155 datao®, 3c,ff,6e,19,7e, 19, a 
8, 19, c7,1a,56,1b,5c, ‚ib, bS,1ib,b 
1,1b,ad, 1b, a9, 1b 

156 dataas. 1b,a1,1b,62,1b, 68, 1 
b ‚bd, 1b,8, 19,75, 1b ‚de, 1b, f4, % 
9,c7,19,15,1a,52 | 


<al>. 


<ni>. 


157 datala ‚88,3c,43,3e,28, a2, 5. 


9,28,dA4,ce,d4,2d ‚53, ar, 46, 54. 5 
7, af, 52, ‚ab, 88,77’ 


158 datala, SB, 13,08,a9,00,f®, 0 
'b,85,2e,a9,880,85, 2d, a9, ou, 84,7 
0,19,68,ad,78,19 

159 datadd, 034,35,2d,8d,76, 19, a 
5,2e2e,8d,?7B, 19, ad, 18,12,ac,11,1 


2,38,e9,02.ba. 01 


168 data88,85,2d,84,2e,4c,2c,9 
1,308,81,98,91,2d,4c,e5,5e,48,a 
5, 15,09,408,85,15 - 

161 data68, 20,62,56, 48, a5, 15,2 
9,bf,85,15,86,fc,84, fd,28 ‚98,5 
5,68,a6,fc,a4,fd . 

162 data6ß. 20, f4, 87, ed, 19, bB, 4 


<em> 
<je> 


<db> 


'<fa> 


<en> 


4,86,fc,20,86,03,f8,8b6b,208,89,8 


8,e0,19,b0,36,ed 

163 data898,d8,95,a6,fc,4c,ec,1 
9,83,38,e5,fc,9®, 
5,86,e4,4c,50,c1 
164 data28, 03, 88,86, fc, 20,45, 
8,85,17,c9,48,b® ‚1@,a2, 12,28,c 
 c,cd,e8,a5,16,28 | 

165 detase, cd,aS,fc A ‚ca,cd, a 
c,28,7d,f0,88,20,f4,87,e8,0a,4 
c,‚e7,68,a2,ff,a® | 
166 dataaa, e8,a9,88,85,77,bd,® 
0,10,f0,19,86,fc,85,78,32,86,b 
d,4c,1a,ca,d®,02 

167 data85,fc,290,69,92,8a,18,f 
2,20,37,61,a6,fc,e8,89,d0,d9,6 
8,2c,38,28,59,45 

168 data4b,58,28,12,88,4c,e2,5 
.9,ae,11,12,ad,18,12, 38, es, 2d,e 
9,802, bo, B1,ca,ad 


169 dataßa, e5,2e,d8,08,c9,08,d 


8,04,c0,08,f0,35,40,30,79,a5, 1 
7,48,45,16,48,208 
178 datada,77,28,15,88,20,45,a 
8,35,17,c9,48,b0,86,c6,16,36, 1 
6,e8,d9,02,c6,17 
171 data28,b4,1a,28,b4,1a,38,6 
‚8,85,16,68,85,17,c®, uB, ro, 03, 4A 
c,d4,84,32,04,95 
172 data63, ca,18,fb, ‚68, 68 ‚6B,a 
2,13,a5,16 ‚28,cc, cd, a2, 12, a5,1 
7,28,cc,cd,28,d8 

173 datacd ‚4c,d8,cd,2B ‚54, 1b, F 
.- 8,4f,32,80,86,fb,c9,22,d®, BE ‚e 
-.6,fb,28,4e,1b,c9 


27,05,fc,85,e 


<mc> 
<cj> 


<1d> 


<gj> 


<jp> 


<km> 


<jb> 


<kk> 


<lo> 


<oe> 


<ai> 


174 data22 ‚de, 08,a4,fb,fB, 8a, 2 


0,88, 03, 98, 94, 20, öb, e8,c9,808,d 


8,e9,35,2e,36,2d 


175 dataaß,81,d@,1d,28,98, 55, & 


'08,82,280,ec,42,a32,c8,2® ‚ec,42, 2 


8,25,51,28,b5,4b 

176 dataad, ‚00, 20, ec ‚a2, aa, cB, 2 
0,ec,42,85, 62, 86, 61 ‚2B,ec 
0, 12, 608, cB, ‚eBd,bd . 
177 datadß, 0b,f8,d2,28,ec,42,d. 
d,88,0b,f8,f1,d8,1c,88,84,fa,a 
0,04,02,008,28,ec 

178 data42,f&,cf,c9,22,d®, 06, a 


9,01,45,f3,85,fa,a5,fb,oS,fa,f 


D.da,cB,d®,e6,68. 

179 datae6,3d,d®,82,e6,3e,4c,c 
9,083,208,45,aB,4c, 6f, cd,28,45,a 
8,4c,9f,cd,a9, 73 | 

180 dataa2. 1b,d®& 04,09, 
6,8©,29,03,8d,28,03,39,81,68,2 
0,45,38,20,bd,ff 
181 dataa9,40,a2, 
a,ff,298,c0,ff,a2,4B, 
0,86,83,28,e2,58 

182 data20,98,55,39,480,28,c3,f 
f,a9,800,85,ba, 40,c9,ff,a9,72,d 
8,12,39,65,d®8,®e 

183 datas9, aB,dO,8a,a9, 42, de, 1%] 
6,39,14,d8,092,39,88,8d,e8,83,4 
c.e4,.03.a2,07,bd 


04,00,07,28,b 
20,09, ff,2 


‚a2,d 


. <of> 


<d4> 
<ho> 
<og> 
<io> 
<ph> u 
<pe> 


<oa> 


184 datacb, 1b,9d,e4,83,ca, 18, f 


7,30,f0,39,41,8d,80,ff,4c,88,® 
5,82,05,bd,fa,1b 
185 data9d,8c,83,ca,18,f7,a9,e 
2,Bd, 82, 16,29,24,8d,8c,16,a9,4 
c,8d,8d,16,39,78 
186 dataßd,fe, 82 ‚29,40 ,8d,fd,B 
2,40,72,16,21,43,0d,51,29,48,0 
0,25,1c,64,80 


BASIC 75 


Fortsetzung von "Seite 39. 


cgoto Zeilennummer 


<lc> 


Die Zeilennummer kann ee Wert zwischen 0 und 
65535 annehmen. Der Befehl cgoto wird nicht durch 
Renumber angepaßt. Die Zeilennummer kann auch 
als Variable oder Formel angegeben sein. Beispiel: 


cgoto le: 


Funktionen: 
inser (Addresse) 


Ein weiteres Bonbon für den 80- Zeichen Beahkien: 
Ein modifiziertes Peek liest das VDC-RAM aus, das 


used (dummy) 


‚normalerweise von BASIC nur sehr schwer auszule- 
. sen ist. Maximale Adresse 16384. 


en die Programmlänge des BASIC-Programms aus. 
Martin Ilse w 


EL EN 


PC - .GRAF _ K 


Neidvoll hat anche Anwender die fantastischen 
grafischen Möglichkeiten eines großen Personal-Com- 
 puters betrachtet, wenn’s darum ging. Zahlenwerte 
in Windeseile als anschauliche Balken- oder Torten- 
grafik auf dem Bildschirm darzustellen. Mit dem fol- 


genden Listing ist dies auch für den C 128 kein Pro- 


| De mehr, wenn auch nur im A0- Zeichen- Modus. 


Fi 23 as 67T. 8 A 


Mulll IN MM 


Be u an 225 


Kurzbeschreibunng: 

Nach dem Start des Programms landen Sie im Menü, 
Mit den Cursortasten werden die Menüpunkte. ange- 
wählt und mit >RETURN< kommt man dann in den 
gewählten Bereich. 

_ Nun zu den einzelnen Menüpunkten. 


VER MUENCHEN 


Anleitung: 
Die Anleitung ist verhältnismäßig nkich gehalten, 
da sich das Programm in den einzelnen Menüpunkten 
von selbst erklärt und Bedienungsfehler so gut wie 


‚ausgeschlossen sind. Mit einem Tastendruck blättert 


man in der Anleitung weiter. Durch Drücken der Ta- 
ste ‚m‘ gelangt man wieder ins Menü. Dabei spielt es 
keine Rolle, ob Groß- oder ansoteibung. verwen- 
_ det wird. 


Balkengrafik: 


Als erstes wird man nach der Anzahl der Eingaben ge- 
fragt, die auf zwölf begrenzt ist. Danach ist der 


Höchstwert anzugeben. Bei Werten, die im Bereich 


der Hunderttausender oder im Millionenbereich lie- 


gen, ist es günstiger, den Wert aufzuteilen. Anstelle 
von 800000 gibt man einfach nur 800 an und schreibt 
dann im Text eben ‚Werte in Tausend‘. Der Text ist 


‚auf 38 Zeichen beschränkt. Bei einem längeren Text 


wird zurückgesprungen und man kann den Text ge- 


kürzt noch einmal eingeben. Bei Eingaben, die über 


oder unter den angegebenen Werten liegen, wird im- 
mer zurückgesprungen und zu einer neuen Eingabe 
aufgefordert. Nach einer Sicherheitsabfräge wird die 
Grafik aufgebaut. Mit dem Druck auf eine x-beliebige 
Taste kommt man ins Menü ZurlEH, 

Tortengrafik: 

Nach der Abfrage zur Eingabenanzahl (auf zehn be- 
schränkt), muß man sich entscheiden, ob man die 


Ausgabe in Absolut- oder Prozentwerten haben will. 


Nach der Eingabe der Werte kommt die übliche 
_ Sicherheitsabfrage. Wird sie mit j (für Ja) beantwor- 


tet, so wird die Grafik aufgebaut. Wie im Be 


16 4 1 


Balkengrafik geht’s mit einem einfachen Tastendruck 
wieder ins Menü zurück. Bei n (für Nem) kann man 
seine Eingaben FOnBTeN, 


Kurvengrafik: | 
Im Prinzip handhabt man . die Kurvengrafik ; genauso 
wie die Balkengrafik. Der einzige Unterschied liegt in 


sind. 


Grafik PEN | 

Dieser Programmpunkt wurde offengelassen. Man 
kann den Punkt zwar anwählen, aber es erscheint 
nur der Hinweis auf Zeile 15000, ab der jeder seine 
eigene Hardcopy-Routine einbauen kann. Da fast 


jeder Drucker eine eigene Hardcopy-Routine vom 
“ Hires-Bildschirm benötigt, wurde auf eine Installation 


verzichtet. 


Grafik ansehen: 
Hier wird auf den Grafikbildschirm umgeschaltet. Mit 
einem Tastendruck geht’s wieder zurück i ins Menü. 


. Grafik laden: 


Nach der Eingabe eines Namens für die Grafik Ds 
sie von der Diskette geladen. Bei einem falschen Na- 
men springt das Programm wieder in das Menü. 


Grafik speichern: 

Man wählt einen Namen für die Grafik (maximal sech- 
zehn Zeichen), die sich im Speicher befindet, tippt in 
ein und dann >RETURN< und schon wird die Gra- 


fik gespeichert. Achtung! Auf der Diskette sollten 


noch mindestens 37 Blöcke frei sein, soviel Platz 
braucht nämlich eine Grafik. 


Directory: 

Mit Directory wird der Inhalt der Diskette aüfgani: 
stet. Zum Anhalten betätigt man die >NOSCROLL< 
-Taste und zum Weiterlaufen noch einmal. Es ist auch 
möglich, mit der Commodore-Taste das Scrollen zu 
verlangsamen. Sollte versehentlich die Stop-Taste ge- 
drückt worden sein, so kann man mit dem Befehl 
CONT fortfahren. | 


Werte ansehen: 
Um die zuletzt eingegebenen Werte aufzulisten, be- 
darf es dieses Menüpunktes. Die Handhabung ist. die 


‚gleiche wie bei Directory. 


Werte ändern: | 
Wenn dieser Punkt versehentlich aufgerufen wurde, so 


man ändern will. Dann wird der momentan ‚gültige 
Wert angezeigt und man kann den neuen Wert einge- 
ben. Sollte noch ein Wert geändert werden, so drückt 
man ‘A‘. Bei *G‘ wird die Grafik mit dem neuen Wert 
aufgebaut. Mit Tastendruck geht’s wieder in s Menü. . 


Ende: 


Wenn man die Sicherheitsabfrage mit Nein Barar 


tet, kommt man wieder in das Menü, ansonsten wird 
das Programm beendet. 


42 


der Anzahl der a die hier auf 100 N 


u; 


geht es mit der Eingabe einer Null wieder ins Menü. | 
Ansonsten gibt man die Nummer des Wertes ein, den 


Josef Lindhuber w 


18 rem pc- grafik===u====-=-128 ( 


(p) commodore welt 


u Ze Se zu mem SUB AumEp aieEn SEE «DES AMTES SENDE qui (Ein diMmEE CAMEEM -EREEE SEINE CE HERMES Ami me nun 
een ee FE Se re A ie GE Sa a ae De GE Gm ai, Sass, an Gms 


rem 

rem 
rem 

rem 


rem version 7.08 aoSTase 
c 128 + floppy 


aMMEI Mm SuEEHEin SEEORD SUMME SHRMEER GINA» ceNHu MEHR: oiMEER SUÄEED AMD NMMNE SiHHliNE GBA IHNEN GIHEEM GEIEEE ANAND SANENS sine SumaiE Sulmn 
ze nr ann 


rem 
rem 
 gosub 68808 

rem menue 

110 : 

cir 

dim f(11) 
p=-8:f(p)=1 
printchr$( 142) 
168 b$="balkengrafik 
tortengrafik 
afik 
en. 


” . o$=-" 
”":k$="kurvengr 
":d$=br$+"grafik druck 
"+ye$ 
178 g$=-br$+"grafik 'änsehen "+ 
ye$:w$=gr$+"”werte ansehen "+ 
ye$:a$=b1l$+"anleitung ° "+ 
ye$:1$=cy$+"grafik laden "+ 
ye$ 
188 s$=cy$+"grafik speichern"+ 
ye$:c$=cy$+"”directory "+ 
ye$:f$=gr$+"werte aendern "+ 
. ye$:e$=re$+" ende 
ye$ | 
198 : | 
288 color 8,1:color 4A4,1:color 
5,6 | 
218 
228 


scenclr 
char1,8,8,"” 


238 
-grarfik | a: 
248 char1,8,2,” 


258 color5,8 

268 char,1,5,a$, flo): ‚char, 28, 
‚1$,f(6) 

270 char, 1,7 ‚b$, FUND: char, 20,7 
‚s$,f(7) 


288 char, 1,9 os. #2): char, 28,9 


‚c$,f(B) 
298 char,1,11,k$, #3): char, 28, 
11,w$, #9) 
308 char, 1,13 ‚d$, f(4) :char, 20, 
13,f$, FC 10) | 
318 char, 1,15,g8$,f(5) :char, 28, 
 15,e$, #011) 
320 chart ‚a ‚23, g3$+" mit cursor 


rem 0: ee 


"+ 


| | 1 
char1,8,1,” | | p c 
1 


<cm> 


tasten waehlen - dann >return< 


’ 
338 getkey m$ 


5280 
538 : 


568 


348 if m$=chr$( 13) then onp+ig 


oto51@, 1580, 2380 


358 f{p) = 8 | | 
368 if m$=chr$( 17) then begin 
378 ifp= Sorp= ae p-5: elsep 
=p+1 | | 
388 bend 
398 if m$=chr$( 145) then begin 
408 ifp=Borp=-6thenp=p+5:elsep= 
p-1 | ne 
418 bend 
428 if m$=chr$( 29) then begin 


438 
440 
458 
468 
4708 
488 


ifp>S5Sthenp=p- -6:elsep=p+6 
bend 

if m$=chr$( 157) then begin 
ifp<6thenp=p+6: AZBeBEH- -6 
bend | 
| flp)=1 

498 goto 268 

588 end 

510 : | | 

rem --- anleitung --- 


540 
558 
5 


scnclr 
color®,1:color4,1:colorS, 1 


printchr$( 14). 

578 forx=1t048:printrn$"” 
next 

588 printrn$”. Anle 
itung. "rf$. 

598 forx=1t0480: printrn$” “rf$; 
:next 

688 char1,®, 23, "m= Menue J 

ede andere Taste = weiter "”,1 

618 colorS5,16:window@d,4,39,22, 
1:print 

628 printrn$"Allgemeines 
print 

638 print"”Mit diesen Programm 
koennen Sie Grafiken" print 

648 print"”fuer die Statistik e 

rstellen, speichern, ":print 

658 print"”laden, umaendern und 
ausdrucken." :print 

668 print"”Wenn Sie bei Werte e 
ine Null eingeben ":print 

678 print"”kommen Sie wieder in 
"s Menue zurueck." :print 

688 print”Sollten Sie versehen 
tlich >RUN/STOP< ge-":print 

698 print"drueckt haben, so ge 

ben Sie ’cont’ ein"”:print 


"rf$; 


:"rf$ 


788 print"”um im Programm fortz 
ufahren."” 
718 getkeyw$ 


‚3718,45880,467 
0,4720,494B, 5158,5220,5438, 694 


. eren Sie es einfach": 


 PC-GPRAFIK 


7208 ifwg=" m "orw$="M"then1578 
738 scnclr:print RE 

748 printrn$"” Balkengrafik rf 
$:print n 


758 print"Sie koennen zwischen 


2 und 12 Balken ":print 
768 print"”waehlen. Den Maximal 
wert koennen Sie ":print 


778 print”frei bestimmen. Alle 
rdings sollte er aus"”:print 
788 print"”Gruenden der Uebersi 
chtlichkeit nicht zu"”:print 
798 print"”"gross gewaehlt werde 
n. Sie koennen ja im"”:print 
888 print”Text eine Angabe mac 
hen, wie z. B. ":print | 

818 print” ’Werte in Tausend’ o 
der aehnlich.” 

828 getkeyw$ 

838 ifw$="m "orw$="M"then1578 
848 scnclr:print N 
858 printrn$"Tortengrafik 
$:print 

868 print"Hier haben sie die W 
ahl zwischen der":print 

878 print” Ausgabe in Absolut- | 
oder Prozentwerten. print 
8868 print”Aus Gruenden der bes 
seren Uebersicht-":print 

898 print"lichkeit SORLLEN Sie 
die Werte nicht zu"”:print 

988 print”klein waehlen. Probi 
print 


:"rf 


918 
928 
938 


print"”aus." 

getkeyw$ 
ifw$="m"orw$="M"then15708 
948 scnelr: print 
958 printrn$" Kurvengrafik 
$:print 

968 print"Bei 
en benoetigen Sie":print 
978 print"die Kurvengrafik. 
e Anzahl der Werte"”:print 


:"rf 


mehr als 12 Wert 


Di 


260 print"”ist auf 188 Dagrenzt 


print 

| 998 print"Zusaetzlich haben Si 
e hier noch die print | 
1888 print"Moeglichkeit sich d 
en Mittelwert Ihrer"”:print 


1818 print"Eingaben auf der Gr 
afik ausgeben zu ":print | 
1828 print"”lassen."” 

1838 getkeyw$ 

1848 ifw$="m"orw$="M"then 1578 
1858 scnclr:print 

1060 


printrn$"Grafik drucken : 
"rf$:print | 


1878 print”Hier koennen Sie in 


 <aj> 
<jd> 


<ni> 


<le> 


<al> 
<dj> 


<kk> 


<bg> 


<fj> 


<jk> 
<cp>. 


<ig> 
<af> 


<xoe> 


<em> 
<nj?> 


<ko> 


<bo> 


<mn> 
<pf> 
<hn> 
<ga> 
<ck> 


<cd> 


<bc> 


<cp> 


<le> 
<on> 


<ch> 


<ha>. 
<ag> 


<gc> 
<zmo> 


<jo> 


<nb> - 


kt erscheint die": 


1138 


Druecken wieder 


den Zeilen ab 15888" :print 
1888 print"Ihre eigene Hardcop 
y-routine en) 


nt 
1898 printrn$"” Grafik ansehen u 
"rf$:print | | 
1188 print"Bei diesem MEnBesE 


print 


1118 print”Grafik wieder auf d 
em Bildschirm. Mit” :print Ä 


1128 print"dem Druck auf eine 
beliebige Taste geht":print 

Da in’s Menue zurue 
ck. | | 
1148 
11508 
1168 
1178 
f$:print 


u 


detkeyue 
ifw$="m” oru$-"M"then1578 
scnclr:print 


1180 print"”Um eine Grafik zu 1 
' aden muessen Sie nur" | 
1198 print”den Namen der Grafi 


print 


k angeben. Vergessen” :print 


1288 print"Sie none die Diske 


tte einzulegen. print: print 


Ir printrn$"Grafik Sbes heran: 


"rf$:print 
1220 print"Achten Sie darauf d 
as auf der Diskette”:print 
1238 print"noch mindestens 37 
Blocks frei sind, ":print 


1248 print"denn diesen Platz b 
‚ enoetigt eine Grafik.” 


1250 
1260 


getkeyw$ 

ifw$=-" m"orw$="M"then1570 
1238 scnclr:print 

1288 printrn$"Werte ansehen :" 
rf$:print 

1298 print"”Mit der >NO”s2$"SCRA 
OLL< Taste koennen Sie ":print 


‚1388 print"bei laengeren Reihe 


n die Werte anhalten”:print 
1318 print”"und durch erneutes 
":print 

print” igesen. ":Drint 
getkeyw$ | 

ifw$="m "orw$="M"then 1570 
1358 sencir:print 

1368 printrn$”"Werte aendern 2 
rf$:print . 
1378 print"Als erstes erschein 


1320 
1338 
1348 


t der Text Ihrer ":print 
1388 print"Grafik. Sie koennen 
Ihn aendern oder ":print 


1398 print"einfach durch druec 


ken von >Return<"”:print 
1488 print"”uebernehmen. 
erden Sie nach der "” 


Dann w 
print 


printrn$"Grafik laden ep 


<oo> 


:print:pri 


PC-GRAFIK 


1410 


14208 
lten 
1438 

Sie 
1448 


1458 
‚1468 
1470 
1480 


print 


1498 


Taste koennen Sie" 


1508 


loesen. 


1518 
1528 


itsabfrage koennen 


1530 


ifw$= 


senclr:print 


printrn$”Ende : 


print"Nummer des Wertes g 
efragt, 


den Sie ":print 
print”aendern wollen. 
Sie die Nummer ":print 
print"nicht wissen, sehen 
einfach bei ":print 
print"Werte ansehen nach. 


Sol 


getkeyw$ 
"m"orw$="M"then1578 
printrn$"” Directory :"rf$: 
print"Mit der >NO SCROLL< 
print 
print” stoppen und wieder 
”":print 

"rf$:print 
print"Nach einer Sicherhe 
":print 


print"Sie aussteigen oder 


'in’s Menue zurueck.":print:pr 
int:print:print 

1548 printlr$"” Und nun 
viel Erfolg "g3$ 

1559 getkeyw$ ; | 

1568 ifw$= "m"orw$="M"then 1578 

1598 window®,B, 29, 24,1: na 
1580 : 

1598 rem balkengrafik 

1688 | 

1618 color& ‚1:c0lor4 ‚1:colorl, 


19: colorS, A 


1628 


elr: Seneir: graphic, 1: gra 


phicß: cd=1:d2=8 


1638 


forx= 1to4B: printrn$" "rr$ 
::next 
1648 printrn$” bal 
kengrafik "rf$ 


1658 forx=1t048: printrn$" "rf$ 
‚:next 

1668 print: N: 

1678 printye$"anzahl der balke 


on von 2 - 12 moeglich" 'cy$: prin 


t:print:printchr$(?7) 


1688 


= 


1690 
1708 


input"”anzahl der balken”; 


ife=®then120 


ife<2ore>12thenprintc2$c2 


$:printchr$(?): g0t01688 
1718 print _ - 


1728 
17380 


input”maximaler wert ";h 


ifh<. !ormw> 10BBB8B0aaaane 


B8then 1728 

print 

ifh= S@orh>5@then1788 
ifh<S@then1778 i 
v=h/4: z=int( v*190)/180:go 


1748 
1758 


1768 
1778 


<be> 


<cd> 


<fp> 


<ne> 
<li> 
<1l1> 
<mj> 


<bl> 


<pf> 


<od> 
<al> 


<jg> 


'<zna> 


<la> 
<ae> 


<jo> 


<op> 
<jo> 
<aj? 


<mg?> 


<la> 


<hc> 


<cd> 
<co> 
<pp> 
<ih> 
<ga> 


<1j> 
<hh> 


. <pm> 


<ac> 
<al> 


<hc> 
<do> 


<hd> 


<pm> 


: 2128 


to1798 
17808 z= int(h/A) 
17908 z2=z#2:23=2*3:z4=z#4 


18908 z$=str$(z) :z2$=str$( z2):z 


3$=str$( z3) :z4$=str$( z4) 
1818 print"text (max. 38 zeich 
en) “:print:print:print 
1828 print" "zg$zg$zg$zg$zg$z 


g$zg$zg$zg$z2g$2g$ 28 552g $zg$ze$z 
g$zo$ze$zg$ze$zg$zu$zefz69z68z 


e$2g822$28%28%22$20$2g%2g$2g$8z 


ge$zg$zg$:printc2$c2$c2$ 


.1838 inputt$ 


18408 
‚„ı | 

1858 1= lentt$) 

1868 if1>38thenprintchr$( 7) go 

to178® 

1878 fF=1808/h 

1880 s=-e*25 

1898 scnclr 

1988 dimafe) :dimi(e) :dimw( e)- 
1918 fory=1toe 

1928 i(.y)=y*#25 

1938 print:printy”. 

1948 inputw(y) 

1958 ifw(y)>hthenprintchr$(7): 

goto1938 

1968 ifw(y)<®thenprintchr$(7): 

g0t01930 | | 
1978 nexty 

1988 gosub6218 

1998 getkeyf$ | 

2888 iff$="j"”then21808 

2818 iff$="n"then2938 

2828 goto1998 

2838 printchr$(?7) :print:input” 

welche nummer”;n 

2848 ifn>ethen2838 

2858 ifn<1then2838 

2868 print:printn”. 
"wen) 

2878 print: ul neue eingabe" 
;w{n) 

2088 

29898 

2188 

2110 


color5,6: windowß®, 12,39,24 


wert”; 


eingabe = 


ifwEn)>hthen2878 

g0t01988 

fory=1toe 

j$=str$(y) 
colori,y+i:graphici1 

bb=w( y)*f 

al y) =198-bb 
box1,i(ly),afly), ity)+1B, 19 


2138 
2148 
2158 
B,,1 

2168 drawi ‚ily), aly)toily)+5,a 
(y) -Stoily)+18, aly) ara yore 
‚aly) 


2178 draw! ‚ily)+1s, aly)-Stoity 
) +15, 188toi(y) +18, 190 z 


2188 charı ‚ily)se, ®@, ‚j$ 

2198 next 

2208 width2:draw1,®, to, 198:d 

raw1,319,8t0319, 198: widthi 

2210 color, 16 

2228 char1,B, 1 ‚za$ 

2238 char1,0,6,23$ 

2248 char1,8,12,z2$ 

2258 char1,®, 18 ‚z$ 

2260 1$="0" 

2278 char1,8,1,1$ 

2288 char1,8,6,1$ 

2298 char1,8,12,1$ 

2388 char1,8,18,1$ 

2318 drawi1,1 ‚Oto1, 198: drawi ‚31 

9, 198t0319, 1% 

2320 char1 ‚®, 24,t$ 

2330 

2340 

2358 

2368 

2370 

2380 : 

2398 rem tortengrafik 

2488 : 

2418 scnclr:clr:cd=2 

2428 color®,1:color4,1:colorS5, 

6:color1,6 | 

2438 printchr$(7) 

2448 forx= 1toAB: printrn$"” "rf$ 

;:next 

2458 printrn$” to 

rtengrafik Ä "rf$ 

2468 forx=1t048:printrn$"” "”rf$ 

;ınext 

2478 print:print: colorS, 6 

2488 print”"anzahl der Singaben 
(2-10) a. 

2498 inpute 

2588 ife=®then128 

2518 ife>1Bore<2then2488 

2528 print:color5,4 

2538 dima(e) 

2548 print:print:print 

2558 print"text (max. 

en) :"”:print:print:print 

2568 print” "zg$zg$zg$zg$zg$z 

e%z8$2g$z2g$2g$28$zg$zg$zg$zg$z 

g$zg$2g$z2g$2g$2g$2g$zg$zg$zg$z 

e$zg$zg$zg$z2g$z2g$zg$zg$zg$zg$z 

e$zg$zg$:printc2$c2$c2$ 

2578 inputt$ 

2588 window®,9,39, 24, 1 

2598 1= len(t$) | 

26808 if1>38thenprintchr$( 7) :go 

to25408 j 

2618 window®d,4,39,24,1 

2628 print:print:printe”eingab 


nekreyue 
graphicß:window8,8,39,24 
ifd2=1then148 

goto138 | 


38 zeich 


<ji> 
<kp> 


<np> 
<je> 
<nb> 
<mh> 
<aj?> 
<bj> 


<1li>. 


<am> 
<ej> 
<em> 
<ol> 


<ob>. 


<cp> 


<ia> 


<je> 
<ig> 
<jh> 


<fc> 


<oe> 
<mk> 
<am?> 
<ml> 


<fa> 
<pi> 


<ca> 


<gh> 


<no> 
<cl> 


<ja> 


<fn> 
<ek>. 


<hh> 
<mh> 


"<da> 


<ij> 


<an> 


<ed> 
<id> 


<hn> 


<kj> 


<cm> 
<jb> 


2718 


2798 
‚2888 


3848 


en in absolutwerten 


‚print: 
colorS, 16 | 
2639 print" ausgaben in "eng"a" 


rf$” bsolut oder 


"rn$"p"rf$"roz 
ent” Ä 


2648 getkeyags 


2658 ifag$= "a"thenprinto2$+" au 
sgabe 2 absolutwerten | 
":g0t02688 


2668 ifag$="p er au 
sgabe a prozenten 
":goto3160 


2678 printc2$c2$:g90t02638 
2688 window, 18,39,24,1 
2698 color5, 6 
2788 fori= itos 


printi"”.”; 

inputw(i) 

s=s+w(i) 

nexti 

gosub6218 

getkeyf$ 

iff$="j"then2880 
iff$="n"then2B80 

g0t02768 

PEINEEBESLT): print: input” 
welche nummer"”;n 
2818 ifn>ethen2888 
2828 ifn<1then2888 
2838 print:printn"”. 
"wUEn) 
2848 s= 


2720 
2730 
2748 
2758 
2768 
2778 
2788 


eingäbe = 


s-w{n) 


2858 print: input” neue eingabe"” 


wen) 

5868 
28708 
28BB 
2898 
2988 
2918 
2928 
2938 
2948 
2958 
2968 
2970 
2988 
2998 
w3 

3888 
3818 
3828 
3838 
wä 


s=s+w{n) 

g0t02758 
color1,6:s$> BErSLE) 
v= s/368 

graphic1, 1 
box1,1,1,319,198 
char1,1,24,t$ 

wi=8 

draw1,188, 188t0188, 
forj=1toe 

w2=w( j) /v 

w3=w2+tw1i 
s1$=-str$tw(l)) 
circlel, 180,189,8®, 80, wi, 


28 


cx=rdot(B) :cy=rdot{ 1) 
drawi,cx,cyto188, 128 
w4=w1+L(w3-w1)/2) 
circle®, 180, 198,780,78,w1, 


cex=rdot(B) :cy=rdotf{ 1) 
dx=rdot(8) /B:dy=rdot( 1) /8 
drawd,cx,cyto188, 1990 
chari,dx,dy,s1$,1 | 


3858 
3068 
3078 


<oh> 


3128 


3130 getkeyw$: sraphted: window® 


 char1i1,1,1, 


wi=w3 
nextj 
color1,13 


"summe = 
char! ‚8, 1,s$ 


‚8,39,24,1 


3140 


3158 


3168 


senelr: ifd2= then 148 
goto138. 
colorS5,6:windowß®, 1B, 


‚l1:cd=3 


.. 3178 
3188 
3198 


32800 


3218 


3228 


. 3230 
3248 
32598 
3268 


3278 printchr$(?7) :print:input” 


fori=1toe 
printi"”."; 
inputw(i) 


s=s+w(i) 


nexti 

gosub6218 
getkeyf$ 
iff$="j"then3358& 
iff$="n"then3278 
g0t:03238 


welche nummer";n 


3288 


3298 
3388 


"w{En) 


3318 
3320 


;w{.n) 


3338 
3348 
3358 
3360 
33708 
3388 
3398 
3400 
3418 
3420 
3438 
3440 


3458 


3468 


ifn>ethen3278 


ifn<1then3278 


print:printn” 


s=s-w( n) 


print:input”neue eingabe"” 


s=s+tw{n) 

goto3228 
color1,6:s$=str$(s) 
v=188/s 

graphic1,1 | 
box1,1,1,319,198 
char1,1,24,t$ 

w1=8 

drawi ‚280, 188t0288, 


208 
for j= Itoe | 


w2=w( j) #v*#3.6 


w3=w2+w1:3$=str$(w( j)) 
s( j)=w( j) /s#100 


s3=s( j) #199: s1= (int(=29+0. 


5)) 7/1880 


3478 
3488 
w3 
3498 
3588 
3518 
3528 
wa 
3538 
3548 
3558 
3568 


s1$=-str$(s1) 
circle1,288, 180,808,80,w1, 


cx=rdot( 8) :cy=rdot( 1) 
drawi1,cx,cyto288, 108 
w4=w1+{ (w3-w1)/2) 

circle®,288, 188,78, 


cex=rdot( 8) :cy=rdot( 1) 


dx=rdot(8) /8:dy=rdot( 1) /B 


drawß,cx,cyto288, 188 
chari,dx,dy,s1$,1 


39,24 


eingäabe = 


78,w1, 


<cb> 
<mh> 
<eb> 
<co> 


<ki> 


<eh> 
<ld> 
<ef> 


<po> 
<bi> 


. <ao> 


<l1> 


<lg> 


_<ki> 


<pj> 


zek> 


<ag> 


<jp> 


<jg> 


<cl>. 


<jl> 
<mn?> 


<1In> 
<lo> 


<pn> 


<ej?> 
<lc> 
<om> 
<ge> 


<la> 
‚<dh> 
<ch>. 


<ga> 
<ba> 
<on> 
<ai> 
<ok> 


<ni> 


<ak> 
<me> 


<of> 


<ge> 
_<jb> 


<pei> 


<ja>. 


<ld> 
<ge> 
<ed> 


<gk> 


3598 


+2, 
3610 
3628 
3638 
3648 
3658 
3668 
3670 
3680 


3578 en len(s1$) : chari,sp+tdx,d 
y,"%", | 
35808 EN s2=s2+s( j) 


color1,16 


368@ char! ‚B ‚j+2,s1$:chari ‚6,3 


:chart ‚8,j+2,a$ 


es. 6 
nextj 
color1,13:s2$=str$(s) 


char1,1,1,”summe =" 
char1,8,1,s2$ | 
sn=len{ s2$) 
chari,sn+9,1 


getkeyw$:graphicd:window® 


‚8,39,24,1 


3698 
3788 
3718 
3728 
3738 
3748 
3758 


ifd2=1then148 
goto138 


rem kurvengrafik 


senclr:clr:cd=4 


color®,1:color4,1:colorS5, 


8:color1,B 


3768 Forx=1t048: printrn$"” "rf$ 


;:next 

3778 printrn$” kur 
vengrafik "rf$ 
3788 forx=1t048:printrn$"” "rf$ 
;:next 

3798 print: print: colorS5, 6 


3888 print"anzahl der eingäbeni- 


(2-188) :"”; 


3818 
3828 


inpute 


ife=dthen128 
3838 ife>1B8Bore<2thenprintchr$ 


(7) :goto3888 
3848 print:color5,4 
3858 dimw(e) 


386®@ print:print: DENE maximal 
er wert :'; 


38708 


3888 


inputh 


ifh<.1orh> 198998H9HHH89008 


Bthen3868 


3898 
3988 


3918 v=h/4:z=int( v*198) /100:go 


ifh=-580orh>58then3928 
ifh<S@then3918 


t03938 


3928 
3938 


3948 z$=str$(z) :z2$=str$( z2) :z 


z=int(h/4) 
22=z#2:23=z2#3: z4=z*#4 


3$=str$( z3) :z4$=str$( z4) 


3958 
3968 
en) 

3978 


47 


print:print 

print”text (max. 
:print:print:print 

print” 


38 zeich 


"ze$zge$zg$zg$zg$z 
g$zg$zg$zg$zg$zg$zg$zg$zg$zg$z 
g$zg$zg$zg$zg$zg$zg$zg$zg$zg$z 
g$zg$5zg$z2g$zg$2g$2g$2g$2g$z2g$z 


<kl1> 


<gf> 


<md> 


<cd> 
<am> 
<bh> 
<cb> 
<nn> 
<bn> 


. <ec> 


<ff> 


<fa> 


 <jf> 


<mp> 
<fd> 
<di> 
<hl> 
<ag> 


<fd> 


<mb> 


<aj?> 


<pm> 
<ai> 


<of> 
<bb> 
<fj> 


<ic> 
<dc> 
<jk> 


<ip> 
<ah> 


<bb> 
<ja> 
<co> 
<ae> 
<em> 


<pd> 


<hi> 
<fl> 


<gm> 


g$zg$zg$: Iprinto26028028. 
3988 inputt$ _ 


3998 window®, 18,39, 24,1 


4008 1= =1en(t$) 


Ü 


4018 if1>38thenprintchr$( 7) : ‚go 


to3958 
color$S, 6 
forx= itoe 


4828 


4838 
4940 


4858 


A068 ifw( x) >horu( x) <Bthengoto4 
848 
40708 


4088 
4098 
4100 
41108 
4128 
4130 
4148 


welche nummer” 


printx” 


wert we 


inputw(x) 


print 


next 


gosub6218 
getkeyf$ 


‚iff$="3"then4219 


iff$="n"then4148 
goto4198 
printehr$(7): print: input” 


‚n 


4158 ifn>ethen4140 - 


4168 ifn<1thend4148 
4178 print: printn". 
"wEn) 

4188 print:input"neue eingabe”. 
;w(en) 


eingabe = 


4198 ifw(n)>hthen4188 
4208 goto4898 


4218 print:print"mittelwert gr 


afisch anzeigen ( j/n)" 
4228 getkeyw$ 
4238 ifw$=" j"then4268 


42408 ifw$= 


"n"thenr=8:goto4308 


4258 BALON Eee 


4268 


u=8 


4270 fori= I1toe:u=w{[ i) +u: next 
4288 j=u/e 


4298 d=198/h:r=198-( j*d) 


4308 window®,®, 


39,24,1 


4318 as=317/(e-1) 
4328 d=198/h 


4338 


c=1 


4348 graphic1,1 
4358 p=1:q=198- -{wE1)*d) 


4368 forx=-itoe 
4398 1=-w(x)*d | 
43808 drawi,c, 198toc, 198-1 


4398 drawi,p,gtoc, 190-1 


4488 p=rdot(B): USZOaEL I) 
4418 c=ctas 


4428 next 


- 4438 draw1,1,rt0319,r 


4448 box1 ‚B, B, 319, 198: naxl; 1 ‚® 


‚318, 


aasa 


198 


char1,8,®, 


za8 


446B char1,90,6,z3$ 
4478 char1,8,12,z2$ 


<ap> 


‚<1p> 
ee 


stp2 


<nh> 
<nc> 


<op> 


<od> 
<lh> 


<fh> 


<jie> 


<ib> 
sac> 
<oc> 


 <ka> 
<mc> 


<mn> 


<ej> 
<ik> 


<lg> 


<hk> 


<pb> 
<kf> 
<jc> 


<lc> 
<ik> 
<dm> 


<ph> 


<oi> 


<io> 
enJj> 
<dm> 
<pl> 


<dk> 
<df> 
<mo> 
<hf> 


-<id> 


<nd> 


<nm> 
-<eg>. 


<il> 
<bm> 
<pc> 
<oi> 
<cm> 
<jc> 


 <]lm> 
<pc>. 
<al> 


4488 


4498 
4508 


4518 
4528 


4538 


4548 


4558 
4568 
4578 


4588 : 
4598 


4688 
4618 
46208 


4638 


char1,8,18,2$ 


char1,0,8,1$ 
char1,8,6,1$ 

char1,®8, 12. se“ 
char1,8,18,1$ a 
salort ‚6: char, 1 ‚24 ‚t$ 
getkeyw$: graphic 
ifd2=-1then148 
scenclr:goto138 

rem grafik drucken 
scnclr 
color5,6 
char1,7,11 


CECCCECCECECEEI" 


A648: 


char1,7,12,"”B grafik wird 


gedruckt B" 


4658 


ECECCCCCECK" 


4668 
4678 
46858 
4698 
4788 
47108 


char1,7,13, "ICCCCCCECCELE 


2209209 


rem grafik ansehen 


aphren 
getkeyw$: graphich: fCp)= =B: 


en... 


4720 
47308 
4740 
4758 
4768 
4778 


4788 
4798 


4800 
4818 
4820 
4838 
kr 
4848 
4858 
1% 

4868 


48708 


. 4888 
:sleepi 


4898 
4988 
4918 


4928 


char1,8,2, 


rem grafik laden 


scnclr 
color4,18:color5S,B . 
char1,8,1,"” 
| | ra 
”" grafik laden 
er 


char1,8,3,"” 


color5,6 


char1,2,22,”_ = menue" 


char! ‚21, 
ne grafi 


input” ";g$ 


'ifg$=" "thenf(p)- =e: goto1a 


Earl ‚2, B, S 


charı ‚2,8B,g$ 


char1,2,18,"wird geladen" 
trap6230 

graphic1,1 

bload( g$) ‚p7168 
printchr$(?): getkeyu$: gra 


phic®: ne =® 


‚ "VECCCCCCECCEE - 


ntwh$" 


| char1 ‚o, 1, 


g0oto140: 


rem grafik speichern \ 


'scnclr 


color4, 11:colorS, 18 


ee 


char1,8,2,' BER 


char1,8,3," 


colorS,6 
char1,2,22,"”_>= 
chart 21 9 seen enne 
char1,2,8, "name der grafi 
input” ":o$ 

ifg$s-"_ _"thenf{p)=®: goto14 


1=len( g$) 
if1>16thenprint:print:pri 
name zu lang"”gr$:prin 


tchr$( 7) :sleep2:g0t04978 


5188. 


5118 
5128 
ert" 

5130 


char1,2,8," 


char1,2,8,g$ 
chari ‚2,10, "wird BeopeTen 


bsave(g$) ,d@,on b@,p7168t 


op16384 


5140 
5158 
5168 
5178 
5188 


5198- 


f(p) =9:g0t0148 


rem directory 


aenolr: directory 


color5,6:print:print" 'tast 


e druecken" 


52088 getkeyw$ 

5219 f[(p)=8:goto140 

5228 : | | 

5238 rem werte ansehen 

s2A0 : 3 E 

5258 color®d,1:color4,12:colorS5 

‚16 * _ 

5268 scnclr | 
5278 forx= 1048: printrng" "rf$ 
‚:next 

5288 printrn$” werte 
ansehen "rf$ 


5298 forx=1t048: printrn$"” "rf$ 
;:next 


5308 printrn$" anhalten mit >n 


o scroll - taste< "rf$ 

s318 forx=1t048: printrn$” "rf$ 
next 

5328 window, 6, 39, 24 


<pg> 
<pi> 


<kg> 

 <ca> 
<oc> 
<hf>. 


<kf> 


<nh> 


<ic> 


<jf> 


<pj?> 
<mn> 


<be> 
<fj> 


312 


<bk> 


<kp> 


<cf> 
<dk> 


<kd> 


<pa> 
<og> 
<jo> 
<ab> 
<mg> 
<xie> 
<jh> 
<ab> 
<gk> 
<ck> 
<ne> 
<fd> 


<he>. 
<cj> 


<hm> 
<pe> 
<nb> 
<ap> 


<pm> 


| <kk> 


color5,13:print:printt$ 


5339 
5348 window®,8,39,24 
5358 print:colorS,6 
5368 foras=1itoe 
5378 printas". wert"w(as) :slee 
pl | | 
5388 next 
5398 colorS5, 16 | 
5488 print: printrn$” taste 
"rf$ 
5418 getkeyw$ 
5428 windowd,8,39,24: PCp)- =8:go 
to148 
5438 
5448 rem werte aendern 
SASD : 
5468 colord,1:color4,12:color5 
‚18 
5478 scnclr 
5488 forx=1t048:printrn$” "rf$ 
‚next 
5498 printrn$” werte 
aendern "rf$ 
5508 forx=1to48:printrn$"” "rf$ 
;:next | 
‚58518 char1,8,23,” 8 = menue 
” 1 
2 ’ 
5528 window8,4,39,22 
5530 color5,6 
5548 ifcd=l1orcd=4then5568 
5558 ifcd=2orcd=3then5839 
5568 colorS, 13:scenclr:print:pr 
intt$ | | 
5578 printc2$c2$:open1,8:input 


#1,t$:close1:print:colorS,9 


5588 window8,7,39,2® 
5598 print:print” "e"werte":pr 
int:print” maximalwert ="h:pri 


nt:color5,6 


5688 


print:print” welchen wert 


wollen sie aendern ?":print:p 


rint 
5618 


5628 


5630 
5648 


inputae 


ifae>ethenS5610 
ifae<1then6838 


print:print” "ae”. wert = 


"w(ae) :print:print 


5658 
nt | 
5668 


5678 


print" neuer wert :": 


inputw(ae) 
ifwL ae) >hthenprintchr$(7) 


:got0o566® 
5688 ifw( ae) <®thenprintchr$( 7) 


:g0t0o5668 
5698 print:printrn$”" a = aende 
rn. g = grafik 


49 


<ce> 


PC-GRAFIK 


colorS,16 
print:printrn$"” 


5708 BE 
5718 taste 
"rf$ 
5728 
5730 
57408 
5750 
5768 
5770 
5788 
5798 
5800 
5818 
5829 
5830 
intt$ 


getkeyw$ 
ifw$="a"thenS5590 
ifw$="g"then5768 ° 
g0t05728 
window®8,8,39,24:f{(p)=®8 
d2=1:color4,1:graphic1,i1 
ifced=1goto2188 
ifcd=-2g0t02880 
ifcd=3g0t03358 

ifcd= =Agoto4268 

goto148 | 

colorS, 13:scnelr:print:pr 


"5848 printc2$c2$:open1,8:input 


 #A1,t$:closeil:print:colorS,9 
5858 window9,7,39,28 

5868 print:print" "e"werte":pr 
int:color5,6 

5878 print:print” welchen wert 
wollen. sie aendern = :print: p 


 rint 
5888 inputae 
5898 ifae>ethen5888 
5908 ifae<1then6830 
5918 print:print” "ae". wert = 
"wCae) :print:print 
5928 s=s-w(ae) | 
5938 print” neuer wert :"”:prin 
e. | 
5948 inputw(ae) 
5958 s=s+w( ae) | 
5968 print:printrn$"” a = aende 
rn | eg = grafik 
ab 2 
5978 color5,16 
5988 print:printrn$"” taste 
"rf$ 
5998 getkeyws | 
6888 ifw$=-"a "then5868 
6818 ifw$="g"then5768 
68028 g0t05998 
6838 window8,80,39,24:f(p)=®:go 
an | 
684D : e 
6858 rem ende 
6860 : | 
6878 colorS,8:scnelr 
6888 char1,2,11," 
: et 
| y 1 
6898 char1,2,12,"” sie wollen a 


ussteigen 7??? 
6188 


( j/n) jr 1 
char1,2,13,"” 


ee 


getkeyw$ 
ifw$="j"then6158 


6118 
6128 


"auf wiedersehen" 
6178 color5,?7 
forx= 12t028step2: char ER; 

‚(c) eljot":next 
ne color5,6 
6208 end 


"next 


6218 rem unterprogramm | 
6228 printchr$(?7) :print:printy 
e$"”alles richtig ???"gr$:retur 


n 

62380 : 

6248 rem diskettenfehler 

625B : | 

6268 graphicß:window®,8,39,24: 
color®,3:color4,2:colorS,8:pri 
ntchr$( 7) :flp)=® 
6278 char1,8,18,” 
diskettenfehler 
6288 sleep2 

6298 goto14B 

6308 : | | 
6318 rem BEBESERNFBRUE FRE 
6328 : | 
6338 color5,8B 

6348 print: print: print” hier k 
onnen sie ihre eigene ":print 


4 


6358 print” ae routine e 


inbauen” 
6368 sleep3 
6378 printchr$[ 7) :f[p)= =g: gotot 


48 

63808 : 

6398 rem ===================== 
64080 rem da jeder drucker eine 

andere. | | 

6418 rem hardcopy-routine beno 
etigt | BER 

6428 rem wurde hier auf den ei 
nbau | m 

6438 rem verzichtet. | 
. 6448 rem so kann jeder seine e 
igene | u | 

6458 rem hardcopy-routine 
6468 rem implementieren 

6470 rem =====-===============>= 


68888 rem nachspann 


68818 rem farb/steuercodes 


68928 wh$=chr$( 885): rn$=chr$(® 
18) "n 

680389 re$=- -chr$(028) : gr$= =chr$(® 
30) 


50 


6130 I n ERENBERIT =Q: goto14 
17) | 

61408 goto6110 

6158 scnelr 

6168 Forx= =-etolßstep2: ‚chari1,x,x 


60048 b1$=chr$t 831) :c2$=chr$(1 Kurzanleitung zu VDC-MON’ je. 
60050 rf$=chr$( 146) :br$=schr$ 1 IDEEN 80-ZEICHEN-CHIP 
Ei m>| RICHTIG 


68060 Ir$=chr$( 158) :g3$=chr$t 1 
206. ERSIEEEE ap | PROGRAMMIEREN 
60878 ye$=chr$( 158) :cy$=chr$t 1 Ä 

BEE - > en <of> | Der VDC (Video-Display-Controller) 8563 scheint 


2.690080 rem zeichensatz/graphik <nj> |eines der bestgehütesten Geheimnisse des Herstellers 
68898 s2$=chr$( 168) :zg$=chr$t 1 4 zu sein. Das folgende Programm lüftet es und gibt 
22 | <dg> I Ihnen Ihnen eine Menge Anregungen, um diesen Spei- 
608188 return <ol> cherbaustein zu manipulieren. 


Nach dem Laden und Starten von ‚VDC-MON' er- 
u scheint ein Menü mit neun Punkten. Das Programm 
ers TB 3 11 a erklärt sich beim Ablauf weitestgehend selbst. 
1. Register ändern 
pı8 Nach Aufruf dieses Punktes fragt das Pregnin nach 
Ä |} der zu ändernden Adresse. Wird diese eingegeben 


| | | (0-36 Register), so erscheint der augenblickliche In- 
halt und der Inhalt im Normalzustand. Den neuen 
Wert können Sie in einem der drei wichtigsten Zah- 


| lensysteme eingeben (Hexadezimal, Dezimal und Bi- 


| : när. | 
1 1 2. Register ändern (+/—) 


Wählen Sie diesen Punkt an, so fragt das Programm, 
wie Punkt 1, nach der zu ändernden Adresse. Jetzt 
kann der Inhalt mit ‘+“ oder ‘—* erhöht oder ernied- 
rigt werden. Mit ‘Return‘ verläßt man diesen Menü- 
punkt. | 


| JAHRESSONNENSTUNDEN. FUER DIENEHEN 


3. Register lesen 

Geben Sie den Inhalt des auszulesenden Registers ein. 
Darauf zeigt Ihnen das Programm den Inhalt in allen 
drei (in Menüpunkt 1. aufgeführten) Zahlensystemen 
an. 


S = 
i = 
0: = 
2:89 2= 
28 = 


4. Register zurücksetzen 

Falls die Register so verstellt sind, daß der Bildschirm 
flackert oder nichts mehr zu sehen ist, so können Sie 
sie hier zurücksetzen. Mit der Space-Taste werden die 
links angezeigten Register in den  Ausgangszustand 
versetzt. 


5. VDC-Parameter laden 
Mit diesem Punkt wird eine sequenteille Datei von 


= ff Disk, die mit Punkt 8 erstellt wurde und Registerda- 
= ten enthält, sofort in den VDC-Speicher oder erst in 
9 0 E- | If den Zwischenspeicher geladen (je nach Punkt 8). 
er 4 11 6. VCD-Parameter speichern 
is + u | Die im Zwischenspeicher befindlichen Daten werden 
EB | | J in einem Seq-File auf Disk gespeichert. | 
2 er, | 11 7. VDC mit eingegebenen Parametern füllen 


Wenn Punkt 8 auf ‘ERST NACH SCHRITT 7° steht, 
| | | so werden mit Punkt 7 die Register aus dem Zwi- 
BEUDELKERUNG IN MILL. BAVERN 1818-1986 schenspeicher in den VDC-Speicher geschrieben. 


5 


8. Baameler in VDC speichern: SOFORT [ ERST 


NACH SCHRITT 7 


Bei Aufruf dieseys Punktes kann man einstellen, ob 
die geänderten Register sofort in den VDC oder erst 


in den Zwischenspeicher geschrieben werden (rele- 
vant bei Punkten 1,25). 


9. Ende 
Das Programm wird beendet. 


Erklärung.zu dem Zwischenspeicher 

Nehmen wir an, daß Sie eine bestimmte Kombination 
neuer Registerinhalte haben und ausprobieren möch- 
ten. Sie müßten also die neuen Inhalte nacheinander 
in den VDC-Speicher schreiben. Doch oft kommt es 
vor, daß bei dem Beschreiben der Bildschirm zu 
flackern beginnt oder dunkel wird. Deshalb wäre es 
recht praktisch, wenn man die Inhalte erst zwischen- 
speichern könnte, um sie dann in den VDC zu kopie- 
ren. Diese Möglichkeit bietet Ihnen der Zwischenspei- 
cher (siehe Punkte 5,7,8). 


Benötigte Peripherie: 


C128 mit 80-Zeichen- Bildschirm und TR 15417 
70/71. 


Die folgenden Tabellen sollen demonstrieren, was 
das Programm VDC-MON alles kann. 

Eingaben nach Tabelle 1 ermöglichen den Inter- 
lace-Modus. Damit können alle Zu in halber 
Größe dargestellt werden. 

. Tabelle 2 versetzt den VDC-Chip in die Lage, Zei- 
chen so zu vergrößern, als würden Sie am 40-Zeichen- 
Bildschirm dargestellt. 


Tabelle 1 


VDC-Register. | Neuer Inhalt 
Be | 2 
4 .- 76/7778 
(je nach Bild- 
schirm) 
1 = | | 78 
BIT: € B: 2 
7 | 49 
Tabelle 2 
VDC-Resgister Neuer Inhalt 
1 50 
2. 59 
0. 71 
27 | | -30 
25 86 


18 
28 r 


Harald Görlu 


38 
48 r 
S8 r 
68 r 


„er 
88 r 


98 r 


- 95 g 


188 
118 
int 3 
dec( ” 
read 
ae 
"pr 
138 
ster 
2) r 
ntta 
"pr 
zuru 
148 
amet 
6) v 
intt 
gebe 
158 
er i 
Bthe 
168 
a 
178 
188 
d mi 
198 
c1$ 


2088 


218 
228 
238 
248 
258 
2608 
ster 
b( 12 
c( ”c 
270 
o128 
288 
298 
308 
318 
ers 
en31 
328 


ifa$= 


em CP)’ commodore vert == 


em (c) u harald goerl unse 


em. . 


em | == 
em version 7.8 Baz/asc = 
em c 128 + floppy = 
eM === mmemmememmmmmm nee 


osub 69088 
fast 
printcl1$: dimat 36) , ax$( 36), 


BLSTING S EEE 


6): fori=®t036:readali): Sys 


cdeece"”) ,ali),i:in[(i)=ali): 
ax$l(i): nes: a 
printel$tab( 35) wh$"vdo- mon 
inttab( 35) "------- e 
printo4$cA$tab( 28) "1) regi 
aendern"”:printtab( 29) c4$” 
egister aendern (+/-)":pri 
b( 28) c4$”3) register lesen 
inttab( 28) c4A$"”4) register 
ecksetzen” 

printtab( 28) c4$" 5) vdc*-par 
er laden"”:printtab( 28) c4$” 
dc-parameter speichern”:pr 
ab(28)c4$"7) vdc mit einge 
nen parametern fuellen" 
printtab( 28)c4$"”8) paramet 
n vde speichern : ";:ifzx= 
nprint"sofort":goto17® 
print"erst Has schritt ’7 
printtab( 28) cA$” 9) ende" 
printtab( 28) cA$c4$” testbil 
t taste ’”space’ 
getkeya$:ifa$= "9"thenprint 


:clr:end 


ifa$="1"then318 
ifa$="2"then51® 
ifa$="3"then41® 
"4"then4608 
ifa$="5"then688 
ifa$="6"then688 
irfa$g="7" thenprintel$+"regi 
":fori=8t0o36:printhe$ta 


y” "left$(q1l$,4)i:sysde 


dec"”) ,in(i) ,i:next:goto128 


ifa$=-"8"thenzx=not( zx) :got 


ifa$=-"9"then518 
ifa$=-" ”"then39B8 
goto198 


printcl$”"nummer des regist. 


1%) 
a ale 


a 


<ae> 


<jc>?. 


<eh> 


<1k> 
<ed> 


<hp> 


<bhbm> 
<mm> 


. <mf> 


<da> 
<cl> 
<bg> 
<kb> 


<cf> 


<ap> 
<en?> 
<he> 
<ie> 


<di> 
<kj> 


330 printc4$c4$"-normalerweise 

: +";alnu);"” = $”;right$Chex$ 
(alnu)) ‚2);” = %”";:c= =alnu): gos 
ub1268: printe$ | 

348 printc4$”-aktueller inhalt 

2 ":x=in(nu) :print"+" 

$”;right$(hex$(x), 2); 

=x:gosub126B: printco$ 

358 printc4$c4$c4$"bemerkung : 
”":printc4$ax$f{ nu). 

368 gosub1110 

378 in(nu)=c:ifzx=®thensysdec( 

 "cdcec"”) ,c,nu 
3880 goto128 

398. printre$"a"gr$"a"bl$"a";:g 
eta$:ifa$=""then398 j 
488 goto128 
418 printcl$"nummer des zu les 
enden registers ";:inputnu:ifn 
u<8ornu>36then41® 
428 printc4$cA$"inhalt :" 

438 Be 

| +";salnu);” = $”;right$(hex$ 

kalnus) ‚2);” = %";:c=alnu) :gos 
ub 1268: printc$ 

440 printc4$”-aktueller inhalt 

2: +"; :x=in{nu): printx;” = $"”; 
right$(hex$(x),2);"” = K"s:c=x: 
gosub126@:printc$- | 
458 printc4$c4$c4$”"bemerkung : 
":printc4$ax$( nu) :getkeya$:got 
0128 | | 
468 nu=® | 

470 printel$"register- nummer : 

 "snu;"="alnu) :sysdec( "cedcc"), 

alnu) ‚nu | a: 

488 printc4$"mit ’space’ naech 

stes register zuruecksetzen”" 

498 getkeya$:ifa$=-" "andnu<36t 

hennu=nu+1:goto47® 

588 goto128 

518 printc1l1$"nummer des regist 

ers "; :inputnu:ifnu<dornu>36th 

en51® | 

520 printe4$e4$"inhalt :” 

538 _printo48c4$"-normalerweise 
: ";alnu) :printc4$"-aktueller 
inhalt : ";:x=in{ nu) :printx:p 

rintc4$c4$cA$" bemerkung e7spri 

ntc4A$ax$( nu) 

548 getkeya$: ifa$=chr$( 13) then 

128 | 

558 ifag-" +"andx<255thenx=x+1: 

printchr$(7) ; :goto588 

568 ifa$<>"”-"orx=BthenS4B 

578 x=x-1:printchr$( 7); 

588 in(nu)=x:ifzx=®thensysdec( 

"cdcec"”),x,nu _ 


"= A%”;:C 


x, m 


<ak> 


<od> 


<dn> 
<nc> 


<ac> 


‚<hf> 


<lp> 


. <lo> 


<eh> 


<jl> 


<mf > 


<bn> 


<1lo> 


<de> 


<pd> 
<oh> 
<ff> 


<pi> 


<hn> 
<fFf> 


<ab> 


<ed> 


<gg> 
<aj> 


<zac> 


<ag> 


598 printhe$left$( qd$,8)tab( 28 


)"  "left$(lql1$,4);x:goto54® 
688 printcl$" u 
n vdc-daten laden 


618 print” 


$c4$ 
628 
ry) 
enprintel$; :directory: getkeyaf 
:goto6BB 
638 printc4$"” sind sie sicher 
?"”:getkeya$:ifa$="n"then12®8 
648 open1,8,8,na$+"”,s":ifds<>® 
thenclose1:printc4$c4A$re$”file 
not found !":getkeya$:printwh 
$c2$" ”":printle 
fFt$lqu$,4)" “ 
c2$c2$c2$:g0t0628 | 
658 printc4$c4$"ich lese :"”c4$ 
668 print”"register nr.:"”:fori-= 
8t:036:input#1,in(i) :printc2$ta 
b( 13)i:ifzx=@thensysdec( "cdec"” 
J),inli),i 
678 next:closel:goto12® 
688 printcl$"” 
vdc-daten speiche 


print"dateiname ($=-directo 


rn" 

6908 print" 
c4$c4$ 

788 print"dateiname ($=directo 
ry) ";na$:ifleft$(na$, 1)="$"th 


 enprintc1l$; :directory:getkeya$ 


:goto6B® 

718 open1,8,4,"@8:"”+na$+”,s,w" 
728 printc4$o4$"ich abe : 
"c4$ 

738 print"register nr.:"”:fori* 
8t036:print#1,in(i) :printc2$ta 
b( 13)i:next:closeil:goto12® 

748 data 126,"totalanzahl der 
zeichen/zeile + strahlenrueckl 
auf” 

758 data 9888, 
en/zeile" 


"anzahl der zeich 


768 data 182, "synchronisation 


des linken andsa” 


778 data 9873,"bit 8-3 horizo 


ntale synch.-puls-breite / bit 


4-7 : vertikale” 
780 data 839, "totalanzahl der 
zeilen + strahlenruecklauf"” 
798 data 224,"bit 9-4 : feinei 


nstellung von reg.4 / bit 5-7 
: immer gesetzt" | 
"anzahl der zeile 


808 data 825, 


 <ef> 


<gm> 


<j$m?> 


:na$:ifleft$(lna$,1)="$"th 


san? 


<ji> 


<ck> 
<ma> 


<ac> 
<ch> 


<pj?> 


<ad> 


<mo> 
<jb> 


<hp> 
<nf> 


<bh> 
<kn> 


<hg> 


<am?> 


<fb> 


as a 


n" | | 
818 data 832,”"oberer rand des 
bildschirms" | 
828 data 252,"bit 8-1 : 88/18= 
non-interlace-mode : B1/11=int 
erlace-mode" | use, zu Si 
838 data 231,”"bit 8-4 : anzahl. 


der rasterzeilen/zeichen-1 b 
ıit.9-7 =:'1?7 | | 


BAD data 160, "bit 5-6 : cursor 
-mode” a | 

850 data. 231 ‚bit B-4 : end-ze 
ile des eursors® | | | 
8609 dafs 8088, ”"hi- Ay des vide 
o-rams” | 

878 data 98099,”1o- -byte des vide 
o-rams (mit en 12)” 

8880 data B8B8,"hi-byte der curs 
 orposition"” 
898 data B888,"”1lo- eye der curs 
orposition” | 


980 data 888 San eo 


on vertikal” 

918 data 888,"light- pen- Rasııı 
on horizöntai” 

920 data 808, "hi-byte der zua 
endernden adresse” 

938 data 889, "lo-byte ger zu a 
.endernden adrässan 


948 data 888, "hi-byte von attr 


ibut-ram" 

958 data BOB ,"l1o-byte von attr 
ibut-ram" 

968 data 128,"bit 8-3 : 
eines zeichens bit 4-7 
lanzahl der zeilen”“ 

978 data 232 ‚"JLaenge eines zei 

chens" 

988 data 832,"bit7:copy-bit 

t6:rvs-bit bit®-4A:vertikaäale 

‚nd in rasterzeilen" 

998 data 9871,"bit?7:text-bit bi 

t6:atr-bit bit5:semi-grafik bi 
t4:breite bit®d-3:horiz.rand" 


breite 


bi 
ra 


1888 data 248,"bit 8-3 : hinte 
rerundfarbe bit 71 a vorderg 

rundfarbe” 

1818 data 888 ‚"spaltenaufteilu 

ng" 

19828 data 847 ,"bit 5-7 : zeich 

engenerator bit 4 : ram numme 
er? u 


1838 data 231,"bit 8-4 : 
. Zum untenetreichen” | 
10848 data 881, "zeichen-anzahl 
zum schreiben/kopieren" 

1858 data 832,"daten zum schre 
iben” 


:tota 


zeile 


<nd> 


<ep> 


<mi > 


<be> 


inn ob: 


 sh-rate” 


data pa,’ 


1868 "startadresse hi 
| zum kopieren” 
1878 data BRB, "startadresse lo 
zum kopieren” | 
188@ data 125,"zeichen von beg 


ns” 


1898 data 188, 
inn bis neg. display- -enable-pi 
ng” 


1108 data 245, "bit 8-3 : refre 
1118 printcA$"eingabe "rn$"”"h"r 
f$”"ex,"rn$”d"”rf$”"ez oder "rn$"” 
b"rf$"inaer ?7"cA$:getkeya$ 

1128 ifa$="d"theninput”dezimal 
-wert "”;c:ifc<Borc>255thenprin 


tc2$;:goto112® 


1138 ifa$="d"thengosub 1262.: got 
01198 

1148 ifa$="h" Eheninput” hexadez 
imal-wert ";c$:c=dec(c$) :ifc<® 
orc>255thenprintc2$; :goto11408 

11508 ifa$="h" thengosub126®: got 
o1198 

1168 ifa$<>"b" thenprintc2$c2$c 
2$;:goto111®8 


1178 input"binaer- et (8 stel_ 


len) ";c$:iflen{c$) <>Bthenprin 
tc2$; :goto117® 
1188 gosub124B: gosub 1268 


1198 PB 


":printo4$” 
1288 printc4$"” 


1218 printleft$lqu$,4)” +" 
= $";right$(hex$(c), 2,5” 
;c$ 


C; 
y 


1228 printe4$c4$"eingabe richt 
:getkeya$:ifa$=-"j"thenret. 
<zon? 


ig ?" 
urn | 
1238 PEINEIETESL AUS, N 


".printc4$c4$"” 
"left$(qu$,6): g0to1118 


1248 c=®8:fori=1t08:n$= =mid${c$, 


i,1) :ifn$="1"thenc=c+2* (8= i) 
1258 nexti:return 


12608 c$="":i1l=c:fori= 1t08B: ifil 
>=2"(8-i)thenc$=c$+" 172117 i1-2 


*(8-i) :next:return 


1270 u bes 


680088 rem nachspann zszzemme=m—m——— 
SBBRIB rem farb- -/steuercodes 


609828 wh$=chr$( 885) :c4$= =chr$(8 


display-enable-pi 


"zeichen von beg 


<kk> 


<fg> 


<mh> 


x<xea> 


<eh> 
<zal> 


<oj?’ 


<de> 


<bj> 


<na> 
<ag> 


<ia> 
<pa> 


<af> 
<am> 


<ap? 


<mf> 


<1l1k> 
<ka> 


<fc> 
<pf> 
<dg> 
<ij> 


17) 
60038 
19) 
68948 
38) 


68058 


45) 
60069 
47) 

60070 
68088 
: 60098 
68108 
69110 
68128 
68130 


rn$=chr$( 818) :he$=chr$(® - 


re$=chr$( 028) :gr$=chr$( @ 


b1$=chr$( 831) :c2$=chr$( 1 


rf$=chr$( 146) :c1$=chr$f 1 


c1$=chr$( 157) 

rem zeichenfolgen 

for q=1 to 48 
qd$=qd$+cA$: qug=qu$+rc2$ 
q1l$=q1$+c1$ 

next q 

return 


HOCHAUFLÖSENDE 


GRAFIK IM VDC 


Die Möglichkeit, mit dem C 128 achtzig Zeichen auf 


den Bildschirm zu bringen, ist schon eine feine Sache. 
Interessant wird’s aber erst, wenn Sie diesen in hoch- 
auflösenden Grafikmodus schalten. Wie’s funktioniert, 


zeigt der folgende Beitrag. 


So interessant der 80-Zeichen-Bildschirm für profes- 
sionelle Anwendungen im C128 im Textmodus sein 


kann, für unsere Freude der Grafik ist die Tatsache 


entscheidend, den VDC-Chip auch in den hochauf- 
lösenden Modus versetzen zu können. Damit ist es 
möglich, insgesamt 128.000 Bildschirm-Pixel einzeln 


oder zu einem Byte (= 


anzusprechen. 
Zuständig unter den 37 VDC-Registern ist dafür 
Nr. 25, das sich um die Betriebsart des 80-Zeichen- 


8 Pixel) zusammengefaßt, 


Monitors kümmert. Ist das Bit 7 (Wert: 128) gelöscht, 


so ist immer der Textmodus vorherrschend. Ist es 
gesetzt, so wird der Hires-Grafikmodus eingeschaltet. 
Ab sofort stehen dann in horizontaler Richtung 640 


Bildpunkte, in vertikaler Richtung nach wie vor 200° 


Pixel zur Verfügung. 
Da die Byte zu je acht Pixel innerhalb’ einer Bild- 
schirmzeile hintereinander abgelegt werden (also so, 
wie sie kommen), ist die Programmierung einer sol- 
chen VDC-Bitmap doch relativ einfach. Was ein wenig 
stört: Die bekannten Grafikbefehle des BASIC 7.0 im 
C128 wie DRAW, CIRCLE, BOX haben beim VDC 
keine Chance, er ignoriert sie einfach. 

Am bestehn übergeben Sie einem selbstgefertigten 
Programm gewisse Koordinatenpunkte auf dem Hires- 
Bildschirm und zeichnen auf diese Art und Weise ein 


Bild in die VDC-Bitmap. Die grundlegenden Program-' 


mierschritte zeigt Ihnen das folgende kleine Listing. 


hb m 


158 pokecr,26: 


Hires =, 1 


VDC — 

18 rem hochaufloesende ====128 
11 rem grafik im vdc -_——- 
28 rem (c) commodore welt/h.b. 
38 rem ono==nnemmummanzıumnnem 
48 rem version 7.8 BBz/ascii-- 
58 rem 128 pc + kass. /floppy== 
608 rem =-===+=- > === ==== = nn ne 
8 scnclr:fast:rem auf 2 hz- „ta 
kt schalten 

88 cr=-5497B4:rem variable fuer 


vdc-kommunikations-adresse 1 
98 ci=-54785:rem ve | 
ZZ ‚‚ 2 


188 ba=-1: rem beginn bitmap 


118 p=28:rem in die bitmap-adr 


esse einzutragender byte-wert 
128 bank15: rem entspr. bank e 
inschalten | 
138 pokecr,25: rem reg.25 zus 
taendig füer vdc-betriebsart 
148 pokeci,128: rem wert fuer 
reg. 25 | 

rem reg-26 = fa 
rbgebung im vdc (vorder/hinter 
grund) 

168 pokeci, 18: 
eg. 26 

178 Fori=9t016383: rem einleses 
chleife zum beschreiben der bi 
tmap 

188 gosub228 

198 next 

2088 goto288 

218 rem #** upr zum beschreiben 


rem wert fuer r 


. der vdc-bitmap *#* 


220 hb=int(ba/256) :1b=ba- -hb#25 
6:rem berechnen der bildschirm 
adresse | 

238 pokecr, 18:pokeci,hb:rem hi 
byte bitmap-adresse 


‚248 pokecr, 19:pokeci,lb:rem lo 


byte bitmap-adresse 
258 pokecr,31:pokeci,p:rem reg 
.schreiben in bitmap-adresse 


268 pokecr,38:pokeci,16:rem re 


g.wie oft ’p’ geschrieben wird 


278 ba=ba+i1:rem erhoehen der b 


itmap-adresse 
288 return 


 BLISTINGS 


SCRIPT CALL KOMFORTABEL TEXTVERARBEITUNG FÜR DEN 128 


Gutes muss 


nicht teuer 
sein! _ 


Dieses Programm.nutzt die ‘Fähigkeiten 
Ihres C128 im 80-Zeichen-Modus mit enBprechondem 
Bildschirm vollaus.. 


Für ein Aiites Textverarbeitungs-Programm sind. 
mittlerweile gewisse Standardfunktionen wie Block- 
operationen, automatischer Zeilenumbruch (Word-. 
'Wrapping), Suchfunktion und informative Hilfsseite 
selbstverständlich geworden. All diese Möglichkeiten - 
besitzt Scriptcall, also kann es zu den guten gerech- 
net werden. | 
Es arbeitet nach dem Prinzip WYSIWYG (What you 
see, is what you get), das heißt, der Text ist so auf 
dem Bildschirm zu sehen, wie er später zu Papier ge- 


bracht wird. Zudem zeichnet sich das Programm _ 


durch ansprechende Menüsteuerung unter Benutzung 
mehrerer Windows sowie seine recht einfache Hand- 
habung aus — eine echte Alternative zu vielen teue- 
ren kommerziellen Textverarbeitungs-Programmen 
für den C128. | 


TIPP- MARATHON 


Allerdings: Vor den Lohn haben die Götter den 
Schweiß gesetzt. Eine recht umfangreiche Eintipp- 
arbeit erwartet Sie. 

Verwenden Sie dazu unbedingt unseren CHECK- 
MON, den Checksummer für Maschinensprache- 
Listings. | 

Entsprechende Bedienungshinweise finden Sie bei 
der PESCHIEIDUNE zu dieser Eingabehilfe. 


| ANWEISUNGEN ZUM ABSPEICHERN 
DER EINZELNEN FILES 


Das richtige Speichern der im MONITOR-Modus abge- 
tippten einzelnen Programmteile ist mindestens eben- 
so wichtig wie das Abtippen selbst, wenn das Pro- 
gramm anschließend exakt laufen soll. 

Hier eine Übersicht der Speicheranweisungen aus dem 
RSEISUEBISERSNONITOR des C128: 


SCRIPTCALL (H rogramm 
S “"SCRIPT-CA Be 01 57 


Sscı1 

s "SC 1“ 08 0F78 OFFF 

-5“SC 2“ 08 1300 1597 
SC 3 

S “SC 3“ 08 1300 1BB6 


4 
a 4“ 08 0BO0 OEF7 


S “SC 5“ 08 1300 179D 
SC6 X 
S “SC 6“ 08 1300 1C51 
SC 7 | 
S “SC 7“ 08 3620 363B 


Achten Sie unbedingt auf die exakte Söhleibweise 
Gt a wu. 

Zum Schluß gibt’s noch ein kleines BASIC-Programm, 
das zwar mit dem Hauptprogramm nicht direkt etwas 
zu tun hat, Ihnen aber wertvolle Hilfe zur Anpassung 
Ihres Druckers an dieses Text-Programm leisten kann. 


Sie tippen es mit Hilfe unseres ann ab. 


EIGENE PROGRAMM- UND 


ARBEITSDISKETTE ANLEGEN | 


Haben Sie die Tipparbeit unbeschadet hinter sich ge- 
bracht, so müßten folgende F iles auf Ihrer Programm- 


diskette zu finden sein: 
| SCRIFT CALL 


INSTALL EPSON 


UM MIT SCRIPTCALL ZU ARBEITEN, 
GEHEN SIE FOLGENDERMASSEN VOR: 


Laden Sie das Programm mit DLOAD“SCRIPT-CALL“ | 
und starten es mit RUN, 

oder geben Sie gleich RÜN“SCRIPTCALL“ ein, 

oder einfach SHIFT/RUN-STOP drücken. 
Nach dem Start des Programmes ist im Titelfenster 
die gewünschte Textbreite einzustellen (Cursor nach . 
links = schmäler, Cursor rechts = breiter). 

Die oberste Bildschirmzeile enthält Informationen 


‚über die aktuelle Cursorposition (Zeile/Spalte), die 


eingestellte Seite, die Art der Textdarstellung (Re- 
vers/ Unterstrichen), den Programm-Modus (write/ 
command-Funktion) sowie den Schreib-Modus 


_ (overwrite/insert). Darunter befindet sich die Anzeige 


der Tabulatoren und in der untersten Bildschirmzeile 
das Hauptmenü. Die drei unterschiedlichen Programm- 
Modi seien im folgenden erklärt: 


WRITE-Modus: 

Dies ist der Schreib-Modus, in dem man sich zu- 

nächst befindet. Hier können die Texte editiert und 

durch folgende Funktionen manipuliert werden: 

HOME — setzt den Cursor in die linke obere 
Ecke. 


R — setzt den Cursor an den Seitenanfang. 
RETURN. - setzt den Cursor an den Anfang der 
nächsten Zeile. 
INST — fügt an der Cursorposition ein Leer- - 
2 zeichen ein. | 
DEL — löscht das Zeichen links vom Cursor. 


— wird DEL in der ersten Spalte ge- 
drückt, so wird die darüberliegende 
Zeile mit dem Text aus dieser Zeile 
aufgefüllt. Das Gegenstück hierzu ist: 
SHF T u RET - De diese Zeile an der Cursorposi- 
en tion und schiebt den Resttext: dieser | 
Zeile in die nächste. 


Bitte lesen Sie weiter auf Seite 82 
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sp 


; FbORR DD 20 D0 DO +8 


>B1c01 


>81c89 
>81c11I 
>81c19 
>01c21 
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>81c39 
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>281c59 
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>31c69 


.>B81c71. 


>81c079 
>91c81 


>81c89. 
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>01c99 
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>Q1cb9 


>®B1cc1 


>B1cc9 
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>B1cd9 
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>01d81 
.>81d89 
>01491 


>01d499 


>D1dal 
>981da9 
>QO1db1 
>@1db9 
>®1dc1 


le 
7-) 
28 
Ja 


208 
4 


2a 
2a 
2a 
2a 
1c 
50 
44 


ic 
2a 
2a 
2a 


Br 


53 
Ac 


28 


2a 


28 
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29 
af 
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28 


28 
2a 


43 


Ac 
88 
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2a 
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28 
80 
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52 


00 


Bf 
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>B1e29 
>Bd1e31 
>Q01e39 
>Bdle41 
>81e49 
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36 
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20 
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Das bietet Ihnen 128 SPECIAL: KLEINANZEIGEN 
SIND KOSTENLOS FÜR PRIVATANBIETER! 
Suchen Sie etwas, haben Sie etwas zu verkaufen, zu 
tauschen, wollen Sie einen Club gründen? Coupon 
ausfüllen, auf Postkarte kleben oder in Briefumschlag 
stecken und abschicken. So einfach geht das. Wollen 


.Sie das Heft nicht zerschneiden, können Sie den Cou- 
....pon auch fotokopieren. Oder einfach den Anzeigen- 
text uns so schicken, auf Postkarte oder im Brief. 
Aber bitte mit Druckbuchstaben oder i in Schreibma- 


sehinenschrift! 
“Und: Einschließlich Ihrer Adresse und/oder Tele- 
- fonnummer sollten acht Zeilen a 28 Anschläge nicht 
überschritten werden. 
- ACHTUNG: WICHTIGER HINWEIS! 


Wir veröffentlichen nur Kleinanzeigen: nrivater In- 


PROGRAMNSERVICE 
Achtung! Detietejrr 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedin- 
gungen die Listings dieses Heftes auf Ä 


OD Diskette (30 DM) 
Name 
Vorname 
Straße/Hausnr. 
- PLZ/Ort 
Ich bezahle: 

 D per beiliegendem Verrechnungsscheck / Bargeld 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 
KOSTENLOS! 


 serenten kostenlos. Gewerbliche va Anzäigen kosten pro 


Zeile DM 4,80 plus Mehrwertsteuer! 


Wir versenden für ‚Privat- Inserenten keine Beleg- =. 


Exemplare! 


‚Chiffre- Anzeigen sind nicht gestattet! Wir behalten 
uns vor, Anzeigen, die gegen rechtliche, sittliche oder. | 


sonstige Gebote verstoßen, abzulehnen! | 
Anzeigenabdruck in der Reihenfolge ihres Eingangs, 

kein Rechtsanspruch auf den Abdruck i in der nächsten. 
Ausgabe! u 


Die Insertion ist nicht vom Kauf des Heftes abhängig! = 
Wir behalten uns vor, Anzeigen, die nicht zum The- 


menkreis des Heftes — Computer — gehören, nicht ab- 


zudrucken oder sie nur insoweit zu berücksichtigen,. 
wie es der RN des kostenlosen ‚Anzeigenteils zu 


lÄRt | 


U bargeldlos per Bankeinzug von meinem Konto (nur möglich in der Bundesrepublik!) | 


‘bei (Bank) und Ort 
Kontonummer 
Bankleitzahl 
(steht auf jedem Kontoauszug) 


Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung Keine Nachnahme. 


Umtausch bei Nichtfunktionieren. 


__128/VI 


Unterschrift 
Bitte ausschneiden und einsenden a an 
. COMMODORE WELT | u er 36 
- KASSETTENSERVICE 128/VI | 0 JedeDiskette 
- POSTFACH 1161 | ne nurnoch 30DM! . 
D-8044 UNTERSCHLEISSHEIM a u ... Siesparen 10DM 
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Installetion Epson 


I rem installationsprogramm epson 

2 rem zu scriptcall by martin sn0 

iz. 

10 Fori=8t039: cdß=od$+ehrät 17): c1$ 

=c1$+chr$( 157) :next 

11 cy$=chr$( 159) 

1008 ‚graphics, 1:fast: SOLUES, 2: pudef 

"a" 

110 printey$" wart scriptcall 

u installationsprogramm fuer epson 
drucker ###" 

128 printleft$(cd$, 5) "orginaldiske 
tte einlegen <cr>" 

130 getkeya$: ifa$<>chr$( 13) then138 
148 bload"sc 5" 

158 printleft$(cd$,3) :restore:w=18 
168 u waehlen, wiev 
iele werte max 5: | 
178 ifw>Sthenw=S: ae 
188 fort=itow:printt". wert: ";:p 

rintusing" #44" ;peek( 4943+t-1) ;:pri 

ntleft$(c1$,5) ;:inpute:poke4943+t- 

. 1,e:next:poke4943+t-1,0:w=w+1 
190 ifw<6thenw=wt!: Ppokeasaaru-1, 23 

4: goto190 

288 printchr$( 19);: rg 

rift einschalten max 5 werte: 

218 ifw>S5thenw=S: elseifweithenuni 

228 fort=1tow:printt"”. wert: ";:p 


<hp> 


<go> 


<oc> 


.<no> 


<pi> 


<kj> 


<di> 
<ee> 


<dm>. 


<db> 


<oc> 
<np? 


<on> 
<ki> 


<nd> 
<a3a> 


rintusing"#A##" ;peek( 4965+t-1) ; :pri 


ntleft$(c1$,5) ;:inpute:poke4965+t- 
1,e:next:poke4965+t-1,0:w=w+1 

238 ifw<6öthenw=w+1:poke4965+w-1,23 
4:g0t0238 
248 foru=1t012: readz$, z 

Gas printchr$( 17)2$" max 18 werte: 
,:inputw | 

260 ifw>1dthenw=1Bß:elseifw<ithenw= 
1 \ 
2978 fort=itow:printt". wert: ";:p 
rintusing"#4#" ;peek( z+t-1); :printl 
eft$(c1$,5) ;:inpute: Bansa e:ne 
xt:pokez+tt- ‚B:w=w+1 
280 LPNctithenn- w+ti:pokez+tw-1,234: 
g0t0288 
298 next 
388 printleft$(cd$, 2) alles richti 
8 (j/n) ?" 

318 getkeyaß:ifaße>" j"andaßc>"n"th 
en3id | 
328 ifa$<>" j"then150 
338 printleft$(cd$, 5) "orginaldiske 
tte einlegen <cr>" 


<ja> 


<jh> 


<gk> 


<ed> 


<pc> 


<be> 


<nc> 
<mi> 


<ci> 


<bl> 


<ej> 


<]lm> 


349 getkeyaß:ifaß<>chr$( 13)then348 <cp> 


358 scratch"sc 5":bsave”sc 5" ‚bd,p 


4864t0p6844 <fb> 
368 end a 2 <fc> 
398 data kleines ae,5276 <bd> 
380 data kleines oe,5380 $ <gi> 
398 data kleines ue,5324 <oi> 
400 data sz,5348 <ej> 
418 data grosses ae,5372 <fg> 
420 data grosses 08,5396 <ok> 
430 data grosses ue,5428 <il> 
448 data grad-symbol,5444 ' <nh> 
458 data geschweifte klammer auf,5 Ä 
468 | <df> 


460 data geschweifte klammer zu,54 
92 24 <pc> 


470 data paragraph-symbol , 5516 <ko> 
488 data we 5540 <fo> 
Scri pt-Call 
Fortsetzung von ‚Seite 56 
LINEFEED - führt einen Zeilenvorschub ohne 
Return aus. 
TAB — springt den nächsten Tabulator an. 
-F1/F3 — scrollt die Seite hoch und runter. 
F5/F7 — springt zum letzten beziehungsweise 


nächsten Wortanfang. 

verläßt den WRITE-Modus und 
springt in den FUNKTION-Modus 
(siehe unten). 


ESC 


Zusätzlich enthält das Programm einen automati- 
schen Zeilenumbruch, der die Eingabe von Texten 
wesentlich erleichter, das sogenannte MOISWISPDINE. 


COMMAND-Modus: 
Dieser Modus, den man durch Drücken von CON-. 
TROL erreicht, stellt folgende Zusatzfunktionen 
durch einfaches Drücken der angegebenen Taste zur 
Verfügung: 
Q/P — löscht die Zeile ab der / bis zur Cur- u 
| sorposition. 

— löscht Zeile / fügt Zeile ein. 
T — löscht Seite ab / bis Cursor. 
R — positioniert die Zeile rechts / links 
| vom Cursor. 
= ° — springt zum Anfang / Ende der Zeile. 
9 


m 


— löscht Tabulatoren / setzt diese auf 
- Standard. 
— schaltet unterstreicht / revers-Modus 
ein / aus. 
— zentriert die Zeile. 
 — schaltet Insertmodus ein / aus. 
— löscht die ganze Seite. 
B — setzt / löscht Tabulator. 
CONTROL - schaltet zurück in den WRITE-Modus. 


- FUNKTION-Modus: 
Dieser Modus, den man durch Drücken von ESC er- 
reicht, ist der Menü-Modus mit den Funktionen zur 
Verwaltung der Texte. Hier haben folgende Tasten 
. die ihnen zugeordneten Bedeutungen: - 
ESC — springt zurück in den WRIT E-Modus. 
Ä le wählen einen Menüpunkt aus. 


82 


N- r® 
= > 


-) * 
= Ss 


RT TERST 


RETURN -— wählt diesen an. u | die Anfangsseite (First page) sowie die Endseite (Last 


HELP __- zeigt eine Hilfsseite mit sämtlichen __page), den Randvorschub (Left margin), die Druck- 
| | Editierkommandos. | schriftart (Print style — nur für Epson-Drucker) und 


den möglichen Schönschrift-Modus (NLO) ein. Nach- 
nn dem man im ersten Fenster den Punkt GO ON an- 
DAS HAUPTMENÜ ENTHÄLT FOLGENDE | wählte, beginnt nach Anwählen des Punktes PRINT 
PUNKTE: im zweiten Fenster der Ausdruck wahlweise auf ei- 
nem Epson-kompatiblen Drucker, oder dem Stan- 
| | darddrucker zum PC128, dem MPS 1000, je nach 
Page: nr Einstellung im Setup-Menü. Ferner können dort auch 
Hier können Sie eine der fünf Seiten anwählen, die Geräte- und Sekundäradresse eingestellt werden... 
Sie editieren wollen. Der Punkt RETURN ermöglicht ne | | 
das vorzeitige Verlassen dieses Untermenöüs. 
Fr Setupt: 


Search: | | : Ä Hier können die für das Programm wichtigen Einstel- 
Dieser Punkt bietet die Möglichkeit, die aktuelle Seite jungen vorgenommen werden: | e | 
nach frei wählbaren Texten zu durchsuchen. Wurde | | 


der von Ihnen eingegebene Text gefunden, soer- Columns -- Einstellen der Textbreite. Wird dieser 
scheint an der betreffenden Stelle ein schnell blinken- Punkt ordnungsgemäß mit RETURN 
der Blockcursor. Wird nun RETURN gedrückt, so abgeschlossen, so wird der augenblick- 
springt das Programm in den WRITE-Modus und die | liche Text unwiederbringlich gelöscht, 
gefundene Stelle kann editiert werden. Drücken Sie da intern der Speicher neu organisiert 
an gleicher Stelle die SPACE-Taste, so wird das Su- werden muß. Wählt man dagegen 
‚chen auf dieser-Seite fortgesetzt. | ABORT, so bleibt der Text, aber 
an | | auch die alte Einstellung der Text- 
Block: ga | breite erhalten. Ä 
Dieser Menüpunkt enthält folgende Blockoperationen: Printer device-Die Geräte- und Sekundäradresse des 
Cut — schneidet einen frei wählbaren Bereich Druckers kann eingestellt werden. 
von bis zu zwölf Zeilen aus der aktuel- Printer Type— Einstellen der unterschiedlichen 
len Seite aus und kopiert diesen in ei- -  Druckertypen (MPS 1000 oder Epson- 
nen unabhängigen Zwischenspeicher. | kompatible Drucker). Wählt man letz- 
Im Text wird dieser Bereich gelöscht. | teren. so ist mittels des separaten 
Copy — erledigt das gleiche, nur wird der aus- Installationsprogrammes die Druck- 
® gewählte Abschnitt im Text nicht ge- routine an den jeweiligen Drucker an- 
löscht, sondern er bleibt erhalten. zupassen. Dazu später mehr. | | 


Paste — ermöglicht es nun, den Block an jeder | 
beliebigen Stelle auf jeder beliebigen Special: 


Seite einzufügen. Dieses Menü enthält folgende zwei Punkte: 


Delete: | = Ein- 
Dieser Menüpunkt dient zum Löschen einer bestimm- Ze | a a 
ten oder aller Seiten. _ TER Restart — führt einen Neustart des Programms 
Achtung: Sie sind unwiederbringlich verloren. durch. Ein eventuell im Speicher vor- 
Disk: Pe 2 | | handener Text wird gelöscht. 

Dieses Menü bietet folgende diskettenbezogene It \ 
Punkte: | | Wie bereits erwähnt, muß ein Epson-kompatibler 
| Drucker an den Druckertreiber angepaßt werden. Zu 
Directory -— Ausgabe des Directorys der eingeleg- diesem Zweck befindet sich auf der Diskette ein 
| ten Diskette. — } a Installationsprogramm unter dem Namen INSTALL 
- Format Disk — Formatieren einer Datendiskette. EPSON, welches zu laden und zu starten ist. Hier 
| Nach einer Kontrollabfrage wird die müssen die für den Drucker gültigen ESCape-Sequen- 
| eingelegte Diskette hart formatirt. zen eingegeben werden. Als ersten Punkt findet man 
Load Text -— Laden eines Textes. SCHRIF TART WAHLEN vor. Die meisten Drucker 
Save Text : — Speichern des Textes. Ist bereits ein erlauben es, mittels nur einer ESCape-Sequenz zwi- 
| Text unter gleichem Namen auf Dis- schen den verschiedenen Schriftarten zu wählen. 
kette vorhanden, so wird gefragt,ob Besitzt Ihr Drucker diese Möglichkeit, so geben Sie 
dieser überschrieben werden soll. zunächst an, wieviele Codes dazu nötig sind. Die | 
Save — Sämtliche im Programm einstellbaren daraufhin einzugebenden Codes werden dann vor je- 
Parameter Parameter werden auf Diskette gespei- dem Ausdruck mit Scriptcall, gefolgt von dem im 
| | ‚chert. Bei jedem späteren Arbeiten PRINT-Menü unter dem Punkt PRINT STYLE einge- 
. mit Scriptcall sind diese Werte dann stellten Wert, an den Drucker gesendet. 
automatisch voreingestellt. Als nächstes muß man die ESCape-Sequenz zum An- 


| | - schalten der NLQ-Schrift eingeben, und dann fragt 
Selbstverständlich werden auch hier alle auftretenden das Programm mehrere Codes ab, die es zur korrek- 


Fehler abgefangen und angezeigt. ten Ausgabe der Sonderzeichen (öäüÖAÄÜß*O)N) an 

| den Drucker senden soll. Wurden alle Werte korrekt 
Print: | | | | | eingestellt, so schreibt das Programm den korrekten 
Dieser Menüpunkt dient zum Ausdrucken der Texte. Druckertreiber auf Diskette zurück, und der Aus- 


Zuvor stellt man in zwei aufeinanderfolgenden Menüs druck mit Scriptcall kann beginnen. Martin Scholz U 
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i - N G 5 BEE EEE: 


HEIZKOSTEN- ABRECHNUNG ae " 


Klinge 


Auch dieses Jahr wird Ihnen wieder die Heizkosten: 
Rechnung von Ihrem. Vermieter oder der Haus- 
verwaltung präsentiert werden. 
Aber ist sie auch in Ordnung? . 


- Für die meisten Mieter ist eine vom Computer erstell- 
te Heizkosten-Abrechnung ein Buch mit sieben Sie- 
geln, wird als gegeben hingenommen und ohne Kom- 
mentar bezahlt. 
Das muß nicht sein. Dies zeigt unser Listing für den 
128PC im 80-Zeichen-Modus. Es überprüft unbestech- 
aan die Angaben des SSCHNUNSSISLDI: auf Richtig- 
eit. 


BEZAH LEN IST GUT — KONTROLLE BESSER 


Allerdings: — eins kann das Programm nicht: die inter- 


nen Angaben des Vermieters überprüfen. Dafür muß 
der Mieter selbst sorgen, indem er Einsicht in die Ab- 
rechnungsunterlagen nimmt. Die Möglichkeit dazu ist 
gesetzlich verankert. 

Haben Sie sich von der Richtigkeit überzeugt, errech- 
net das Programm die der Abrechnung zugrunde lie- 
genden Angaben. 

Geben Sie die aus dem Abrechnungsformular ersicht- 
. lichen Daten ein und berücksichtigen Sie dabei auch 
eventuell geleistete Vorauszahlungen, so wird eine in 
| Due menge Gutschrift oder Nachzahlung ET- 
mittelt | 


AUTOR BIETET ANPASSUNG AN 


| — 
Außerdem ist im Programm eine kleine Information 


eingebaut, die auf die Rechtsgrundlage sowie die für 
die Abrechnung geltende Formel hinweist. | 
Der Autor erklärt sich beispielgebend für alle ande- 
ren bereit, das Programm an besondere Abrechnungs- 
Modalitäten, wie andere prozentuale Verteilung, des 
Benutzers anzupassen. 
Schicken Sie dazu lediglich eine Kopie der Original- 
abrechnung mit Leerdisk und Freiumschlag an: 
Günter Kl. -übbing, Eschenweg 8, 8, 4290 Bocholt. D 


B ee Be ne a Se [Sy 222 


Keine Zeit zum 


Abtippen? Die 
Diskette bestellen! - 


Heizkostenabreehnung 


18 rem Euuunnnnnnunnnnnnnuunnn | DO 


28 rem (p) commodore welt == 


38 rem sun | mumunummuuumunmunnnnm 


58 rem ERBAnFAr kl. -uebbing -- 
68 rem u. 
708 rem version 7.0 882. /ascii== 
88 rem A ee == 


95 gosub 60888 


188 printchr$( 11); chr$( 14): Fast | 


110 te$="HEIZKOSTENABRECHNUNG”" 
128. ch$=chr$( 145) Ä | 
130 x=9.01: ren®rundungsfaktor 
148 ro$=chr$( 18) 

158 rf$=chr$( 146) 

1608 be$=chr$( 15) 

1708 ba$=chr$( 143) 

188 u$=chr$( 2) 

198 pudef"” .," 

208 gosub3018 

218 print | 


hen220 
238 ontgosub250,23408,2948 


248 goto210 


258 rem*berechn. brennstoff 


np 


"<ob> 


<hf> 


| .. <mm> 
480 rem (c) by ee 


<pp> 


<ph> . 


<nd> 
<gi> j 
<ho>- 

<km> 


<jp> 


<bb> 


 <nc> 


<lg> 
<bf> 


803» 
<ck> 
<xgj?> 


<op> 
<md> 
<0j> 


 <mk> 
:<do> 
220 getkeyx$:t=vallx$) :ift<Bort>3t 


<da> 


<ek> 


<kk> 


...<J1> 
2608 printchr$( 27) +"u ":chr$(27)+"m" 


<dj> 


278 senclr:char®,23,8,te$:print:pr 
int:printehr$(2) ;:print"A.) Berech - 


nung Brennstoffverbrauch + Kosten" 
288 print:print 
290 gh=ght+tgh 


388 input”1. 
t. Rechnungen des Ausstellers u 
”",. ;bv ; 


318 printspc( 62): ch$;. ;printusing"# 
ARHHR.>R KW"; bv | 
328 print 
338 input"2. Brennstoffkosten It. 
Rechnungen des Ausstellers 

”„ ;bk 


AHAHH.>A DM" ;bk 
3580 print 


Brennstoffverbrauch 1 


ges 


<dm>. 
<dc> 
<mc> 


<ic> 
<bl> 


| = 
340 printspe( 62) ; ch$; ;printusing 4 | 


<fn>. 


<fh> 


368 input"3. Heiznebenkosten Gebue, 


hr Verbrauchserfassung PP- 
”, ‘hn 


378 printspc( 62); ch$;: präntusing”# 


HHRRH.>H DM" ihn 
388 print:kh=bk+hn 


<ed> 


<ia> 
<me> 


398 print"4. Die Kosten der Heizan ur 


zen betragen 

; printusing”HRhukhf. ># Du"; kh 
408 Sri 
418 input"S. Zusatzkosten ru 


_PP- 


ren 


<lm> 


6708 print" 


"zk 


Heizanlage betragen 

:. "sP9$;: printusing"HHHHHHH. > DM 
";gh 

458 gosub3168 

460 getkeyx$ 


478 ifx$="w"then5S3B. 


480 ifx$="z"then?260 
498 ifx$="m"then298 


500 uay. 2D EDEDgnEUBZEEN. got 0450 
518 goto468. 


528 rem#berechn. 


heizwert warmwass 
er h 


int: printchr$(2); : print"B. ) Berech 


nung Heizwert Warmwasser” 


548 print:print | 

558 print"1. Der Brennstoffverbrau 
ch aus A - Ziffer 1 betraegt : 
 "z:printusing HHRHHHHH.>H KW"; bv 
568 print 


570 input"2. Gesamtverbrauch Warmw 


asser lt. 

| ‚vb 
580 eur, ch$;: nrinküsing® # 
HAHRR.>H KW"; vb 

598 print 

688 kwh=2.5*vb#( 60- 10/1. 20 

618 print"3. Ergibt nach Paragraph 


9 der Heizkostenverordnung" 
620 print" vom 05.04.1984 einen 


Heizwert von >>> 


A Sn 3 


n;: a ># KW"; kw 


630 print 
6408 ps=kwh#100/bv 
658 print”4. Der Wert aus B 3.) di 
vidiert durch Brennstoffver-" 
668 print" brauch B 1.) ergibt 
den prozentualen Verbrauch" 
der Heizanlage von 
>>> 
= ;printusing"##. >34 %"; er 
6808 gosub3160 
690 getkeyx$ 
708 ifx$="w"then?6Bd 
718 ifx$="z"then53Bd 
728 ifx$="m"then288 


730 ifx$= en sbengosubenoe: got 0688 


740 goto690d 


758 rem*brechn. waärmwasserkosten 


768 senclr:char®,23,0,te$:print:pr 
 int:printchr$(2);:print"G.) Berech 
nung Warmwasserkosten + Nebenkoste 


538 scnclr:char®,23,®, te$: :print:pr 


. i -<bp> 
420: printapel 62): ch$;: printusing” #4 
AED DM" zZ 

438 ghebk+hntzk: print 
448 .print”"6. Die Gesamtkosten ee 


. <jn> 


<ka> 


<dk> 
<ji> 


<km> 
<pg> 


<pp> 


<ie> 
<1lb> 


<jf> 


<ok> 


<ge> 


<ke>. 


<pn> 


<gg> 


<ac> 
<dj> 
<dp> 


<hn> 


<pk> 
<ij> 


<c]> 


<io> 


<1In> 


<jg?> 


<ce> 
<ai> 
<pb> 

<le> 
<1b> 


<ah> 
 <cn> 
<1lb> 


788 print”1. 


n 
778 print: print. 


as aus A 4.) betragen 


| ‚:printusing"ARRHHHHh. ># Dur: ir 
790 print | 
8080 print"2. Der nach Formel ermit 


telte prozentuale Heizwert ist : 
wi :printusing"##. ># %";ps 

810 print 

8208 input"3. % -Wert bei Bedarf au 


f 1 Bealle hinter Komma runden 


ps 

8308 printspe( 62) ; ch$;: printusing‘ # 
HHABH.>. %";ps Ä 

848 print:gwk=ps"kh/ 100 

858 print"4. Somit ‚ergeben sich Wa 


rmwasserkosten "ps" % v. B 1): 


":ro$; :printusingHHrhnH. > DM"; 
gwk | 

86B print 

878 print"5. Zuezueglich NEDENKOST 
en aus A 5.) 


";:printusing"AHHHHHH. ># ON"; 


880 print:hz=gwktzk 


898 print"6. Die Gesamtwarmwasserk 


osten betragen somit ( 4 +5): 
"‚ıprintusing”AHHHHHH.># DM";hz 


988 pg=hz*48/ 108:wp=hz*68/ 100 


910 gosub3160 

928 getkeyx$ 

938 ifx$=-"w"then99®d 
948 ifx$="z"then?6B8 


-9580 ifx$="m"then208 


968 ifx$="h"thengosub226ß: goto91® 
978 goto928 
988 rem*berechn. 
serkosten | 
998 scnclr:char®d,23,08,te$: BERN pr 


anteilige warmwäs 


int: printchr$(2);: print"D. ) Berech 


nung der anteiligen Warmwasserkost 

en" 

18088 print:print 

1818 print"i1. Die Besantwarnwasser 

kosten aus C 6.) betragen 
":printusing" AAHHHHR.>H OM" sh 


z 
1828 print 


1838 print"a. Von diesen Kosten en 


tfallen 48 % auf Grundkosten-, 


"::printusing  ARHHHHH.>H DM" ;p 


g a 
1848 print 


1858 print"b. sowie 60 % auf Verbr 


BUENSEOREEN Warmwasser 
;:printusingRARHHhh. > Dr 


pP 
1068 print 


Die Kosten. der era . 


1070 input"3. Gesamtwohnflaeche de 


E) Gebaeudes lt. Abrechnung 
| ; gW \ 

1080 Srintsnel&pj; ch$; :printusing" 
HHHHHH.>H QM"; gw 
1098 print 
1100 input"4. Gesamtwohnflaeche de 
r Brdenen Wohnung 

WW | 

1118 BPERERBELBRN ch$; : printusing" 
HHRRRR.>A QM" ;w 
1128 print 
1130 at=pg/gw*ww 
41148 print"5. Diese ergeben anteil 
ige Grundkosten Warmwasser 


";ro$;: printusing  ARHHHHH.>H > 


M";sat 

1158 print 

11608 input"6. Varbrauchte Einheite 

n fuer eigene Wohnung : 
"he 

1170 Srintenek6r); ch$;: printusing‘ 

HRRRAR.>H EH";he 

1188 print 

1190 av=wp/vb#he 


12088 print"?7. Diese ergeben änteil; 


ige Verbrauchskosten Warmwasser : 
"ro$; :printusing" AAHAHHR.>H DM 

" ‚av 

1218 print 

1220 gww=attav-x 

1238 print"8. Ihre Gesamtkosten fu 

er Warmwasser betragen ( 5 + 7): 
"-be$; :printusing "ARHHHHH.>H D 

M":gww | 

1248 printba$ 

1258 gosub3168 

1268 getkeyx$ 

1270 ifx$="w "t:hen1330 

1280 ifx$="z"then990 

1298 ifx$="m"then208 

13008 ifx$="h"thengosub226B:goto125 

.B 

1318 goto1268 

1328 rem*berechn. 

eil grundkosten 

. 13380 senclr:char®,23,® ‚te$: print:p 

rint: printchr$(2);: print"E. ) Berec 

hnung Heizkosten -+ Anteil Grundkos 

ten" 

1348 ‘print:print 

1358 print"1. Die Gesamtkosten der 

Heizanlage aus A 6.) betragen : 

"s:printusing"AHRHHHH.>H DM";:g 


heizkosten + ant 


Ah 
1368 print 


<el> 


<kh> 
<cf> 


<cd> 


<fg> 
<gb> 


<be> 


<og? 
<jo> 


<fj> 


<na> 
<nk> 
<pk> 


<ch> 
<bg> 


<mc> 


<je> 
<e3a> 
<jm> 
<mo> 
<kb> 


<lk> 


<bo> 


<pl> 
<ol> 


<nl>. 


<ap> 


<hj> 


<pi> 
<ed> 


1378 print"2., Abzueglich der Warmw 


asserkosten aus C 6.) 


".n0$;: printusing’ÄHHtnä. Y. D 
M":hz E 

1380 print 

1398 khz=gh-hz 

1488 print"3. Somit ergeben sich v 
erbleibende Kosten fuer Heizung : 


";:printusing"ARHHHHH.># DM";kK 


hz 
1418 print:ghz=khz*408/108 


1420 print"4. Von diesen Kosten en 


tfallen 48 % auf Grundkosten-, 


";printusing"AHHHHHH.># DM" ;g 


hz 

1438 print:vhz= khz#68/ 108 | 

1448 print"5. sowie 608 % auf den v 

SIOrSUEN fuer Heizung ; 
‚:printusing HARHHHH.>H DM" ;v 

hz | | 

14580 print 

1468 input"6. Gessnluchnfiasche de 

S Gebaeudes lt. Abrechnung 2 
‚eW 

1478 printspc( 62); ch$; !printusing” 

HHRHHR >H QM" ;gw 


1488 print 
1498 input"?. Gesamtwohnflaeche ee 


r S-BeNEn Wohnung 
"WW 
1508 printspc( 62) ;ch$; ern 
AHHRRH.>H QM" ; ww 
1518 Schach 
1528 print 
1538 print"8. Die anteiligen Grund 
kosten f. Heizung betragen 


";be$;:printusing"#HhHHnh. #0 


M"; :agh 
1548 printba$ 
1558 gosub3160 


1560 getkeyx$ 


1570 ifx$="w"then1630 

1588 ifx$="z"then1338 

1598 ifx$="m"then2988 

1680 ifx$="h"thengosub2260: goto1ss- 
0 
1610 goto156D- 
1628 rem*berechn 
eil verbrauch | | 
1638 scnclr:char®,23,8,te$:print:p 
rint:printchr$(2);:print"F.) Berec 
hnung Heizkosten + Anteil Verbrauc 
h" 

1648 print:print 

1658 gh=bk+hn+zk 

1660 print"1. Die Gesamtkosten der 
Heizanlage aus A 6.) betragen 


h 


1678 print 


. heizkosten + ant 


";:printusing"AHHAHHH.>H DM"; 


hz 


1918 


1680 nrint®2. brleglich der Warmw 
asserkosten aus C 6.) 

":r0$;| nen en D 
M":hz 
1690 print 
1788 print"3. Somit ergeben sich V 
erbleibende Kosten fuer Heizung : 
Ä ":printusing"AHHHHHR.># DM" sk 
1718 print:ghz=khz*40/ 100 
1728 print"4. Von diesen Kosten en 
tfallen 48 % auf Grundkosten-, 
";:printusing"ARHHHHH.>H DM";g 


1738 print 
1748 print"5. sowie 68 % auf den V 
. erbrauch fuer Heizung . : 
";:printusing  AHHrHHRH.>H DM"; v 
hz 
1758 print | 
1768 input"6. Gesamtverbrauch der 
EAUNE EN it. MESNNUNBSRLELTSE 
"geh 
1778 printspo( 62); ch$; :printusing"” 
HHHHHR.>H EH";geh - 
17880 print 
1798 input"”?7. Verbrauch It. 
ucherfassung der NOhnung 
":hew 
1800 printspc( 62); ch$; :printusing‘ 
AHHHHR.>R EH";hew 
1818 aa uhz/ Ten eten 
1828 print 


'Verbra 


1838 print"8. Die anteiligen verbr. 


auchskosten f. Heizung betragen : 
";be$; :printusing HRHHHHH. >#.D 

N"; vae 

1848 printba$ 

1858 print 

1868 gosub3168 

1890 getkeyx$ 

1888 ifx$="w"then1940 

1898 ifx$="z"then1630 

19088 ifx$="m"then280 
ifx$="h"thengosub2268:g0t0186 

17 | | | 

1928 

1938 


g0oto1878 

rem*aufstellung kosten 

1948 scnclr:printu$;tab(8) ;te$;:pr 

int" * AUFSTELLUNG DER ANTEILIGEN 

KOSTEN" 

1958 print 

1968 print"Ihre anteiligen Kosten 

zarzen sich demnach wie folgt zusa 

mmen:":print 

. printu$; :print"Fuer Warmwasse 
':print 

a gww=attav-x 


<kp> 
<nk> 


<fe> 
<en?> 


<km> 
<ck> 


<fp> 
<fc> 
<kb> 


<gi> 
<io> 


<jk> 


<pm?> 
<bd> 
<np? 


<po> 
<oh> 
<bl> 
<ci> 
<bc> 


<bb> 


<jb> 
<la> 


<po> 


<ja> 
<io> 


<fc> 


<oe> 


<hb> 


<nh> 
<kh> 
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kosten fuer Heizung 


1998 print"1. Anteilige Grundkoste 

n fuer Warmwasser (DS.) : 
";:printusing"AHAHHHH.>H DM";a 

i | 

2088 print"2. Anteilige Verbrauchs 

kosten fuer Warmwasser ( D ?.) 


<jo> 


";:printusing"#######.># DM" ;a 


V 

2818 print 

2028 print"3. Der Gesamtanteil fue 

r Warmwasser betraegt ( 1 + 2) : 

":ro$; :printusing "AHHHHHH.>H D 

M" ; gww 

2038 print 

2848 printu$; :print"Fuer Heizung: ' 
:print 

2858 print"4. Anteilige Grundkoste 

n fuer Heizung (.E8,;) 

";:printusing"#AAHHHHH.>H DM";a 

gh | 

2868 print"S5. Anteilige Verbrauchs 

( F8.) 


<pg> 
<fm> 


<al> 
<ie> 


<hc> 


<od> 


"»:printusing" AHHHHHH.>H DM" ;v 


ae 

2078 print:gkh=agh+tvae 

20880 print"6. Gesamtanteil fuer He 

izung betraegt . 44:5) % 
":ro$; :printusing  AHHHHHH.>H D 

M";gkh 

2898 print:ggk=gww+gkh 

2188 print"7. Die Gesamtkosten War 


‚mwasser + Heizung betragen somit: 


";be$; :printusing  ARHHHHH.>H D 
M";ggk 
2118 print 
2128 input"8. Abzueglich geleistet 
er “Arauszanlungen 5 
";glz 


2138 printspc(62) ;ch$; :printusing" 
AHHRHR.>AH DM" ;glz 


2148 su=glz-ggk 

2158 ifsu>dthen2178 

2168 ifsu<dthen2198 

2178 print:print"9. Die Gutschrift 
betraegt abzueglich Ihrer Zahlung 

en : "sro$; :printusing" AHAHHH 

#.># DM"; su 

2188 g0t02208 Ä 

2198 print:print”9. Ihre Nachzahlu 
ng betraget abzueglich Ihrer Zahlu 
ngen: "sro$; :printusing" AHHHrHH 

A.># DM";su 

2208 gosub 3188 

2210 getkeyx$ 

2228 ifx$="m"then208 
2238 ifx$="z"then1940 
2248 ifx$="h"thengosub2260:g0t02208 

2 | 


<np> 
<gj? 


<oe> 
<de> 


<df> 
<cf> 


<fc> 


<gl> 
<an? 
<jn> 
<aj> 


<nk> 
<ba> 


<ik> 
<ol> 


"<go> 
 <kc> 


<]le> 


<1b> 


2258 goto22108 

2268 chard,2,23," Bitte d 
en Drucker einschalten und eine Ta 
ste druecken ! er 

2270 getkeyx$ 

2288 char8,2,23," 


2298 fast: close4: opend, ‚a Er open3, 3. 


:printchr$( 19); 

2308 forz=1t025:b$="":k= 29: fors=lt 
ok:get#3,a$:b$=b$+a$:nexts | 
2310 ifmid$(b$,k,1)=""thenk=k-1:b$ 
=left$(b$,k) :ifk>®then2310 

2328 print#4,b$:nextz:close3:close 

4:return | u 
2338 rem*prg-info 

2348 scnclr:printtab( 17)u$;te$;:pr 

- int" - ER BRANNTNEONMATIEN print: 

print 

2358 print"Fuer viele ist die jaeh 

rliche vorgelegte Heizkostenabrech 
nung ein Buch mit sie- ben Siegeln 
und wird von den meisten so hinge 
nommen und ohne Kommen”; | 

2368 print"tar bezahlt." 

2378 print 

2380 print"Das dem nicht so sein m 


 üss, zeigt dieses Heizkostenabrech 


. nungsprogramm, welche die Angaben 


des Rechnungsstellers auf seine A 


ichtigkeit ueberprueft.” 
2398 print | 
2408 print"Die rechtliche Grundlag 
e zur Heizkostenabrechnung ist die 


Verordnung ueber Heiz-kostenabrec 


 hnungen vom 85.04.1984. "Bekanntgeg 
eben im Bundesgesetz"; 

2418 print"tzblatt Teil I Seite 59 
2 vom 12.04.1984" 

2428 print 

2438 print"Eine Broschuere zu dem 

. Thema Heizkostenabrechnung kann be 
im Bundeswirtschafts- ministerium 
kostenlos u werden.” 
‚2448 print | 


e lautet:":print 

2468 printro$;be$;: printtab( 10)"Ve 
rbrauchsabhaengige Abrechnung - He 
3z=-’%, ARSEDWOSRERNOSEEN DEINEELN, 
ba$ 

2478 print"Dort koennen alle velte 
ren a Informationen entnom 
men werden. 


2488 print: printtab( 17) "Bitte drue 


<ci> 
<fh> 


<nh> 


<lb> 


<jd> 


<cj> 


 <]m> 
2458 print"Der Titel der Broschuer 


<be> 


<fa> 


<jg> 


cken Sie. die Taste "+ro$+"M"+rtb+" 


 enue";:print" 


"+ro$+"W"+rf$+" e ei 


 enue";:print"”- 


ter" 


2498 getkeyx$ 


2508 ifx$="m"then208 


2518 ifx$=-"w"then2530 

2528 goto2490 

2530 scnelr: printtab[ 17) u$; te$; :pr 
int" - ERDERMAINEDENATTON print: 
print | 


25408 print"Hier erhalten Sie einen 


‚kurzen Ueberblick ueber die wicht 


igsten Daten der Ver- SFANUnE: 


2558 print 


2568 print"Der Paragraph"+be$+" 9 


"+ba$+"regelt die Art und Weise de 


r abzurechnenden Kosten fuer Heiza 


 n- lage und Warmwasser naeh vorgeg 


ebener festen Formel." 
2578 print 


25808 brinttabt 26) "B="+ug+" 2 5 x: Vo 


+ (tw - 18)" 
2598 printtab( 36) "Hu" 
2608 print 


2618 print"B = Brennstoffverbrau 


ch (in cbm oder kg)":print 
2628 print"2,5 = Faktor ist eine e 


 rmittelte Konstante aus mittleren 


Jahresnutzungsgrad":print 

2630 print"V = Menge des verbrau 
chten Warmwasser in cbm" z 
2640 print"Hu = Heizwert des Bren 
nstoffes nach Angaben des Versorgu 
ngsunternehmens" | | 
2658 print"tw = gemessene mittler 


e Temperatur des Warmwassers. (min. 


d. 68 Grad Celsius)" | 
26608 print" (Da die uebliche 


‚Zuflusstemperatur des Kaltwassers 


ca.18 Grad Celsius be- trae 
gt, ist diese von 68 Grad abzuzieh 
en) 

26978 print: printtabt 14) "Bitte deue 


cken Sie die Taste "+ro$+"M"+rf$+" 
"+ro$+"W"+rf$+" ei 
"ro$+"Z"+rf$+" ureuc | 


ter”, :print” 


2688 getkeyx$ 
2698 ifx$="m"then28® 


2708 ifx$="z"then2340 


2718 ifx$="w"then2730- 
2720 goto2688 | 
2738 scnelr: printtab( 17) u$; te$: :pr 
int" - PROGAAMMINFORMATION": print: 
print 

2748 print | 

2758 print"Das vorliegende Program 
m beruecksichtigt alle Formen der 
Verordnung und ist 


fuer den. no -- 


:<dk> 


<fb> 


<ae> 


rmalen Abrechnungsmodus - Mietwohn 


 (ueberprueft) das”; 


rintzv$; 


Heizkostenabrechnung 


ungen eingerichtet." 


2768 print 


2778 print"Um das Programm : Zu A 


‘en, sind nur die Daten aus der Hei 


zkostenabrechnung ein- zugeben; al 
les weitere regelt bzw. berechnet 


2788 print" rascann: 2 


: 2798 print 


2888 print"Die Richtigkeit der Ang 


_  aben Ihres Vermieters, kann das Pr 


ogramm nen DADUERZ ‘ lich nicht 


‚abnehmen. 
‘2818 print 


<ck> 
<do> 


2828 print"Sehen Sie daher unbedin. 


gt in die Abrechnungsunterlagen (R 
‚echtsanspruch) Ihres 


Vermieters 
ein. | 
2830 print 


:. 2848 printtab( 8) "Geben Sie nun Ihr 


e aus der Abrechnung ersichtlichen 
Daten ein." | 
2858 print 

2868 print"P.S. 
ne Uebereinstimmung, passe ich Ihn 
en das Programm gern 
ung einer Bere Ihrer Abrechnungsu 
nterlagen an. | 
2878 print 

2888 print:printtab( 17) "Bitte drue 
cken Sie die Taste "+tro$+"M"+rf$+" 
enue";:print"” "+ro$+"Z"+rf$+" ur 


veck" 


2898 getkeyx$ | 

2908 ifx$="m"then288 

2918 ifx$="z"then2530 

2928 goto2888 

2938 rem*programmende 

2948 scncelr:char®ß,24,12,"Sind Sie 


sicher Ä"+beß+"J/N"+bag+"ü" 


2958 getkeyx$ 

2960 ifx$= ""then2998 

2970 ifx$="n"then10® 

2980 g0t02958 

2998 scnclr:char®,18,12,"Aufwieder 


sehen bis zum naechsten Mal !" 
3008 sys65341 


30810 scnclr:printzf$; Fords 1t078: p 

:next:char1,79,80,zd$ 

3020 Hrintyoß; ‚Fora=1t098:print" . 
ınext:char1,79,1,yo$ 


3030. printyo$; :printtab(B)teg: tab( 


42)"ÄCü by G. Kl.-Uebbing > 1987 < 
":char1,79,2,yo$ | 
3040 printyo$;:fora=1t078:print"” " 
‚:next:char1,79,3,yo$ 

3058 printzc$; :fore-1t078:printzv$ 


;inext:chor1,79,4,zs$ 


- Erzielen Sie kei 


nach Zusend 


<gg> 
<bl> 


<ma> 
<bc> 
<jf> 
<jf> 
<ab> 
<im> 


<ok> 
<no> 


"<tk> 


<af> 
<jh> 


<nn? 


<bh> 


<bf> 


<db> 


<ni> 
<if> 


<mn?> 


9 


3188 char1,25,14,rn$+" 


3060 printchr$t 27) +"m u. 


38078 print 

3888 char1,25,8,rn$+" 1 n4npger _ 
Eingabe Daten aus Abrechnung” 

3898 char1,25,18,rn$+" 2 "+rf$+" _ 
Programminformation" | 

3 "+rf$r" _ 

Programm beenden" i 

3118 fora=1to4:print:next 

3128 printzf$, :fora=1t078:printzv$ 
‚ınext:char1,79,18,zd$:print 


3138 printyo$; :printtab(32)"> "aa$ 


an Eingabe": BEIDERDD NA BET 
‚:printtab( 79) yo$ | 

3140 printzc$; :fora=1t098B: nbzve 
‚next:char1,79,28,zs$:print 

3158 ar 

3168 char®d,2,23,"Bitte Taste druec 

ken >>> "+ro$+" W "+rf$+" eiter 
"+ro$+" Z "+rf$+r" urueck "+ro$+" 

M "+rf$+" enue "+ro$+" H "+rf$+ 
ardcopy":print | 

3178 return 

3188 char®,?7,23,"Bitte Taste druec 

ken >>> "+ro$+" Z "+rf$+" urueck 
"+ro$+" M "ırfg+" enue - "+roß+" 

H "+rf$+" ardcopy":print 

3198 return 

688088 rem nachspann 
68818 rem *farbcodes/steuercodes * 

688028 aa$=chr$( 815) :rn$=chr$( 918) 
60038 c2$=chr$( 145) :rf$=chr$( 146) 

68048 rem ***zeichensatz/graphik * 

68852 zc$=chr$( 173) :zd$=chr$( 174) 

62868 zf$=chr$l 176) :zs$=chr$( 189) 
60078 zv$=chr$( 192) :yo$=chr$( 221) 

60088 return | 

600898 rem ende 


ME mn GEM mE» GAB Am» SEE CMmEB sehn dilnm Gum (rin GEMER ein 


Alle 
Listings 
dieses 
Hefles 
gibt es auf 
Diskette! 
Coupon 


<el> 
<pk> 


<em> 
<jd> 
<pj? 
<kg> 
<dc> 
<pe> 


:<]m> 


<ip> 
<pk> 
<jb> 
<md> 
<lk> 


auf Seite 64 


BE LISTINGS EEE 


OlL- 
COMPANY 


In diesem Spiel schlüpft man in die Rolle eines 
_ Managers, der mit einer Million Dollar anfängt, um 
einen Ölkonzern aufzubauen. Dabei muß man eine ° 
Nase für günstige Gelegenheiten haben. Und natür- 
lich spielt dabei der Zufall auch eine nicht unwich- 
tige Rolle. 
BOHRUNGEN | 
Bohrrechte zu erwerben und dann nach Öl zu boh- 
ren sind natürlich die ersten Schritte, um Milliardär 
zu werden. Sie haben dazu pro Runde drei mal die 
. Gelegenheit. | 
BESTANDSAUFNAHME 
Anhand eines Balkendiagrammes können Sie hier 
die Ölmengen i in Ihren Lagern mit einem ‚Blick er- 
fassen. 
TRANSPORT/VERKAUF 
Hier können Sie Ihr „Schwarzes Gold« per Olfrach- 
ter nach Rotterdam, Kawasaki oder Philadelphia 
transportieren, um es zu verkaufen. Es empfiehlt 
sich, den Hafen zu nehmen, wo der Marktpreis am 
höchsten ist. Wenn Sie viel Ol verkaufen, wer- 
= | den sich Ihre Mitspieler nicht gerade freuen, denn 
je mehr Sie umsetzen, desto stärker sinkt der Öl- 
preis. 
KREDIT 
Es ist ratsam, zu Beginn eines Spiels erst einmal 
einen Kredit aufzunehmen; zu einem Zinssatz von 
15 %. Wichtig!! : Verlassen Sie nicht die Runde, 
wenn Sie mit Ihrem rechts oben angezeigten Kapi- 
tal im Soll stehen. Sie werden sonst mit äußerst 
_ massiven Überzugszinsen dafür bestraft! 
PUNKTE | 
Wenn Sie diesen Menüpunkt anwählen, wird Ihnen 
gezeigt, wie weit Sie schon auf Ihrem Weg ı zum 
Großkonzern sind. 
NÄCHSTER SPIELER » 
Um die Runde zu beenden, wählen Sie diesen Punkt _ 
' an. Gleichzeitig werden Ihnen die laufenden Ko- 
‚sten für Ihre Ölfelder abgezogen. | 

Hier beenden Sie Ihr Spiel. Nicht verkaufte Ölmen- 
gen sowie Ölfelder werden Ihnen vergütet und 
Schulden abgezogen. 

Vorschlag: Der Gerechtigkeit wegen ist es ratsam, 
zu Beginn zu vereinbaren, bis zu welchem Jahr man 
spielt. 

| (Ingo Rösler) 


90 


38 


18 oil-company==== 


28 

28 rem (p) 87/87 commodore wel 
48 rem (c) 87/87 by 

58 rem ingo roesler 

68 rem 

78 rem version 7.8 48z/din-t. 

88 rem 128 pc+kass./floppy 

95 gosub 69008 


188 pokeB,peek(B) or 64 


118 poke1l,peek( 1) and 191:poke 


808, 100 
128 graphic1,1:fast 
138 print chr$( 27) +"e"” 


148 color®,2:color4,6:color5,6 


:color1,6 

158 print chr$( 14) chr$( 11) 

168 da=1988 

178 rem #*## titelbild #terssuz 
188 draw1,157,28 to 163,28 to 
163,27 to. 178,27 to 175,68 to 
188,68 to 1880,65 to 176,65 to 
188,100 to 187, 188 

198 draw1, 187,108 to 187,185 t 
o 173,185 to 173,188. to 177,18 


8 to 173,65 to 147,65 to 143,1 | 
.<ad>. 


88 to 147,108 
288 draw1,147,108 to 147,105 t 


o 133,185 to 133,188 to 148,18 


8 to 144, 65 to 140, 65 to 148, 6 
5 to 140,68 to 145,68 
210 drawl, 145,68 t6 158,27 to 
157,27 to. 157,20 
228 draw1,153,38 to 167, 38 to 
172,68 to 148,68 to 153,38, 153 
,30 to 172,680,148,6®8 to 167, 38 
238 drawi, 147, 65 E6 175,88 to 
145,88 to 173,65 
24B draw1, 175,88 to 
176,95 to 145,80 
258 draw1,158,38 to 
‚38 to 162,68 
268 draw1,158,65 to 
2,65 to 162,107 
278 draw1, 151,42 to 
‚187 to 162, 107 
>80 slow 


144,95 to 
158,68, 162 


158, 197,16 


169,42, 158 


<ni> 


488 


678 


"oil company“ 


charıi1,13,17, 
388 char1,9,19,"by ingo r ERS 

 +"sler (0) 1986” 

: 318 sleep2:getkey a$:graphicd 
328 scnclr:print;print: print: p 


rint chr$( 14) 

338 print” Wieviele Sparer ne 
hmen teil (1-6) 

348 trap 


298 


358 getkey z$:if asc( z$) <49 or 
asc( z$)>54 then 358 

368 z=vallz$) 

378 print:open1,® 

388 for i=1 to z 


398 print” "chr$( 18) "Name"chr$ 


( 146)": 
t | 
488 v=len(na$(i)) 


";:input#1,na$(i):prin 


‘418 if v<3 or v>8B then print c 


hr$( 145) chr$( 145) :g0oto398 

428 kal i)=-10090908 

next i:s=1:close1 
mr=328008:mk=398808 :mp=278 


rem ### menue F#rsuueaeene 
scnclr:print:print 

w=1 

print” "na$(s)tab( 18) "U.5. 

-Dollar:";:print using "#A,HHH, 
HHA,AHH” ;Kals) :print 

498 printtab( 18) "Jahr: " 

588 print" | 


da 


char1,3, 9,” $$$  $$ 
char1,3,198,”"$$  $ $$ 
char1,3,11,"$$ $ $$ 
char1,3,12,"$$ $ $$ 
char1,3,13,"$$ $ $$ 
char ‚3, 14, "sS$ $ $$ 
charı1 ‚a, 15, ” $$$  $H$ 


519 
529 
538 
548 
558 
568 
570 


gE” 
I De 
gs" 
$$” 
$$" 
$$H" 
FFEHE 
580 char1,1,19,"” 


u gosub 3478:char1,28,8,"Boh 
rung. |. 


688 poke288,®: getkay a$:gosub 
3478 
618 


a$=chr$( 817) 
a$=chr$( 145) 
a$=chr$( 813) 
w>7 then w=1 
w<i then w=? 
w=1 then char1,20,8,"”Bo 
hrung ”",‚1:g0oto608 

if w=2 then char1,28,18, 
estandsaufnahme ",1:g0t0680 
688 if w=3 then char1,28,12,"T 
ransport/Verkauf”,1:goto688 


if 
if 
if 

if 


then w=w+1 
then w=w-1 
then 738 


628 
638 
648 
658 if 
668 if 


91 


a u Ri a ’ ve e E ac K 5 B R — Pr [ = ee de R 5 ar 


698 


908 


I o4i1-CGompany 


char1,28,14, 
‚1:g0t0688 

char1,28,16,"P 
‚1:g0t0688 


if w=4 then 

redit 

7008 if w=5 then 

 unkte za 
718 if 


"K 


w=6 then char! ‚28, 18,"N 
"+zq$+"” chster Spieler " »1.B0L9 

: 688. 

928 if w=7 then char, 28, 28, "E 
nde | st: goto688 
738 on w Goto: 748, 2098, 1248, 19 
00,3180,29980,2568 


740 rem ### bohrung EEHEFERFTRN 
758 yb=yb+1:if yb>3 then 468 
768 scnclir:print:restore 
7978 o=int(rnd(B8)*18) +1:if 0o>6 
then 848 - | 
788 for x=1 to6 _ 
798 read bo$lx),plx) 
‚8088 next x 
818 bo$-bo$l o) 
828 p=p(o) — u; 
838 data"Iron"”,8980888,"Lybien" 
‚14980080, "Nigeria", 1598008, "Ve 
nezuela”, 1230808, "Nigeria”,8®8 
B800,"Alaska”, 11080888 
848 if o>6 then print” 
. mi"zt$"gl"zs$"ckt 
(s)-B679089:getkey a$:goto468 - 
858 print” "na$l s) tab( 18) "U.5. 
-Dollar:";:print using "#, ee 
HAB, BAAH" ;kals) :print 
. 868 printtab( 18) "Jahr: ” 
878. print” 


Bohrung 


da 


| ":print:pri 
nt 

888 print" 
. 898 print” 
rint using 
print 

print” 
an ? (J/N) 

9280 getkey a$ | 
938 if a$="j" then begin else 
g0t0o658 | eb 

948 xb=xb+1 

958 if o=1 
968 if 0o=-2 
9978 if 0-3 


Angebot in ".50$ 
zum Preis von $"”;:p 


ER" 


918 
bot 


sa(s)=-sa(s) +1 
ir(s)=ir(s) +1 

| 1ils)-li(ls) +1 
988 if o=4 then ni(ls)=ni(ls)+1 
998 if 0-5 then ve(s)"-ve(s)+1 
18088 if o=6 then al(ls)=al(s)+1 
1818 kals)=kals)-p 

1828 print | 

1838 Berul, Ihr detziges Kapit 


then 
then 
then 


al $”";:print using "A, HR, KA, 
HH”; kale). 

1848 getkey a$ 

1858 bend 


1":kals)=-ka 


Nehmen Sie das Ange | 


.<lm 


<nn> 


<cf> 


:<dd> 


<ki> 


1868 
1878 
1888 


1898 
a 


Ba 


777 Frr% dä 
1120 


<km?> 


. <di> 


<hl> 


<go> 
<kf> 


_<cd> 


<pn> 
<oJ> 


<cj?> 


<ef> 


. 1238 


<do>. 


<ba> 


<mn> 


- 1288 


<ag> 


<ck> 


<ca> 


<cg> 


<fh> - 


<jk> 


<il>. 


<ha> 


<bk> 


<dd> 


<dc>. 


<eb> 


<fe> 
<ed> 
<ac? 


1348 print” 


1358 print" 


goto468 


;posnt 
rint 

ö printtab( 18 "Jahr:" da 

print" _ 


int 
1138 
11408 
1150 
1168 
Gi) 
1170 
1188 
1198 
12808 
1218 


BET EEE SCH 
restore 35608 

for i=-1 to8 | 

read en$(i), oeli), Ki), of 


next i 

print en$(en) 
sals)=sa(ls) +of(en) 
os(s)=os(s)+oe(en) 
BOLBISRENSEIRLEN) SEELE 


ee 


1228 if s=z then s= 1: da=da+ti:g 

oto468 5 

s=s+1:goto468 

rem ### kranzposr RERTEUER 

rem | 

senclr:print:print 

print” Verkauf”: print” -— 
":print:print 

print” Land | 

"vn$”lmenge in 1888 t"” 

ee 


EEEEED u Win GENE AED GERE GENE (NAME GEDEES Wim GENE GEMSEES AED GAMMED wmmmnb dilmu «ini «ünmn 


1308 print | 

1318 print” [S]Jaudi-Arabien... 
.”"sos(s) | | u 

1328 print” [I]Jran 


.";oils) ee. 
1338 print” EEIEDYENES RER IT: 
.":ol(s) | 


[Nligeria. 


.”"sog(s) 


."sov(s) _ 

1368 print” 
”".oa(s) 

1370 print” [Qluit":print 

1388 print” Aus welchem Land e 


[Allaska 


 xportieren ?"” 


<ji> 


<pd>. 
... <df> 


d a$<>"1” and "ascaın" and a$<> 
"y" and a$<>"a"” 
en 1398 | 


1418 if a$-"q” then 468 


92 


SQ 


1398 getkey ag:if a$-chrs 13) 
then 1398 


1488 if a$<>" und ag<>"i"” 


rem Lan ereignis Banane « 
ya-ye+1:if ye>3 then 460 
senelr:print:print chr$( 1 


Ehe "na$( s) tabl 18) "U. 5 
using "H,NHHR 


"print: pr 


[Vlenezuela........ 


‚an. 


and a$<>"g” Eh 


<ap> 


-<pp> 


58258 $"”mk 


BOi1-Company 


1428 print” Ein Schiff fa"zt$"” 


t 180.000 £ -openl, B: print” An 


zahl der Schiffe: :input#1, 5 
f$:close1 
1438 sf=vallsf$): if sf<i or sf 


>188 or sf<>int(sf) then print 
chr$({ 145) chr$( 145) :goto 1420 
1448 if sf$="" then print chr$ 
( 145) chr$( 145) :g0ot014208 


1458 if a$="s"” and os(s)<1808*#s 


f then print” Nicht m"+zr$+"”gl 
ich 1":goto1398 

1460 if a$=-"i" and oi(s)<1@0#s 
f then print” Nicht m"”+zr$+"gl 
ich !":g0t01398 

1478 if a$=-"1" and ol( s) <100*s 
f then print” Nicht m"”+zr$+"gl 


ich 1”":g0t01398 | 
1488 if a$="n" and ogl s)<IB0*s 
f then print” Nicht m"”+zr$+"gl 
- ich 


1":g80t01390 
1498 if a$=-"v” and ov( s) <180*s 
f then print” Nicht m"”+zr$+"gl 
ich !”:g0t01398 
1508 if a$="a" and oals) <19808*s 


f then print” Nicht m "+zr$+” el 
ich 


1":g0t01398 
1518 print:print. 


1528 print” In welchen Hafen s 
werden ? 


oll es verschifft 


print 

B print” Zielhafen Ko 
Marktpr./Sch."” 

print" 


(GmaRn dm dein CEREED GuiuE> (EEE (ME> GEMiNEEn GEEENEE GAmEHEn GURipe GEMEM CUMpNE GEMDERS GEMED> GIEMED GMEEES SEND GEHE GARES 


1578 print” [Alotterdam $ 
49508 $”mr | 
1588 print” [K]Jawasaki 8 


1598 print” [P]hiladelphia $ 
42688 $"mp 

1688 print” [QjJuit” 

1618 getkey h$ 


1628 if h$-"r" then kals)=kals 


)-495080#sf:tr=1: g0t01678 


1638 if h$="q” then goto468 


1648 if h$="kK” then kals)=kals 


.)-58250#sf:tk=1:g0t01678 


1658 if h$="p" then kals)=kals 


.)-58250#sf:tp=-1:g0t01678 


1668 goto 1618 
1678 if a$="s” then Ds a) rose 
)-100*sf 


1688 if a$=-"i" then. N 


)-1980#sf 


1698 if a$="1" then ol(s)=olls- 


<kn> 


<kd> 


<1ld> 


<1k> 


<nl> 


<fh> 


<jl>. 


<ji> 


<nl> 


<jp> 


 <lh> 


<ni> 


<hh>. 


<jh> 


<Jo> 


<fg> 


<ji> 


<gm> 


<ka> 


<le> 
<nd> 


<cl> 


<bh> 


 ommen"” 


<l11> 


je 188*sf 

1700 if ag=-"n" then og( s)-og(s 
)-180*sf | 

1718 if as-"vn then ov(s)=ov(s 


)-100*sFf, 

- 1728 if a$g="a" then oals)=oa(s 
)-1908*sf 
1738 rem ### verkauf KEREERUIN 


1748 scnclr:print:print:print: 

1758 printsf;” Schiff(e) ist ( 

sind) im Zielhafen angek 
1768 print” Sie verkaufen die 

Ladung zum Preis von $"; 
1778 if tr=1 then pr=nr 
1788 if tk=1 then pr=mk 
1798 if tp=1 then pr=mp 
1888 if tr=B8 and tk=-B and 
then pr=®8 . 

1818 pr=pr*#sf 

1828 printpr 

1838 print 

1848 print” Ihr jetziges Kapit 


tp=8 


al: $"”kals)+pr 

1858 kals)=kals) +pr:tr=®:tk=®: 
tp=8 | ur 

1868 if h$="r" then mr=mr-sf#4 
8808 

1878 if h$=-"kK” then mk=mk-sf#5 
5800 | 

1888 if h$="p" then mp=mp-sf#7 
2088. | 

1898 getkey a$:goto468 

1908 rem ### kredit Frauen 
1918 scnclr:print:print chr$f( 1 
4) — 

1928 print” "na$(s)tab( 18)"U.5 


.-Dollar:"” 
AHR,HAH” ;kals) :print 

1938 printtab( 18) "Jahr: ” da 
1948 Brenn 


int 
1958 print" Wollen Sie einen K 
redit ?"s2$"(J/N)” 


1968 getkey a$:if a$="j"” then 


1988 

1978 g0t0468 

1988 print 

es print” In welcher H"”zr$”h 


e ";:inputkd. 


2908 if kd<® then printchr$( 14 
5) chr$( 145) :g0t01998 

2818 kd=-int(kd/1888) #180808 

2828 print” Sie haben jetzt $” 
kals) +kd 

2838 print:kr(s)=kr(s) +kd 

2848 print” Am Ende des Spiele 


3 


;‚:print using "A,HHh 


-print:pr 


2368 


s wird Ihnen insges.” 

20858 print:print” $";int(krls) 
#1. 15): print 

2868 print”. von Ihrem Kapital 
abgezogen.” 


2878 kals) =kals) +kd: satkey a$ 
2088 goto46B 
2898 rem * bestandsaufnahme *# 
2188 graphici,1 FE 
2118 chari, 13, 3, "lagerbest"+tzq 
$+"nde” “ 
2128 charl, 13, 4,"----------- == 
2138 if os(s)>38808 then os(s)- 
3008 | | | 
2148 if oils)>3888 then oi(s)-= 
3888 | 
2158 if ol(s)>3898 then ol(s)= 
: 3008 | 
2168 if og(s)>3888 then og(s)= 
. 3888 | 
2178 if ov(s)>3888 then ov(s)= 
38808 | | Ä 
2188 if oals)>3808 then oal(s)= 
38808 | 
2198 for i=-38 to 48 
2288 draw1,i,16®to i,16®8- -int(o 
s(s)/28) 


2218 next i 


2228 for i=62 to 72 


.2238 drawi, 1,168to i, 168-int(o 
i(s)/20) / 

2248 next i 

2258 for i=-94 to 184 


2260 draw1,i,16®to i,16®-intlo 


'1(s) /20) 

2278 next i 

2288 for i-126 to 136 

2298 draw1,i,168to i,16®8-int(o 
g(s)/20) 

2388 next i | 

2318 for i-158 to 168 

2328 draw1,i,16®8to i,168-intl(o 
v(s)/28) | 
2338 next i 
2348 for i=-198 to 298 
2358 draw1i,i,168to 
als)/28) | 
next i | 
char1,4,22,"”sau" 
char1,8,22,"ira” 
char1,12,22,"1ib" 
char1,16,22,"”nig” 
char1,28,22,"”ven” 
char1,24,22,"”ala” 

2438 getkey a$ 

2448 graphicß:scnclr:print:pri 
 nt:print:print chr$( 14) 


2370 
2388 
2398 
2408 
24108 

24208 


i,168-int(o 


2490 De 


2668 


277908 


. 2798 


2458 print” Besitz: ” | 
2468 print” -------":print 


2478 print" Land  "yn 


$"1fld. Menge in 1888 t" 
2480 print" 


(s)ta (23) os(s) 

2588 print" Iran "Sir 
(s)tab( 23) oi(s) | | | 

2518 print” Libyen, Re 5 


(s)tab( 23)ol(s) | 
2528 print" Nigeria "zni 


(s)tab( 23) og(s) | 
2538 print” Venezuela "ve 
(s)tab( 23)ov(s) | 

2548 print” Alaska uk, Msal, 


(s)tab( 23)oa(s) 

2558 getkey a$:goto468 

2568 rem ### ende FFFFHRFEREEER 
2578 rem ### abrechnung ERUREE 
2588 rem 

2598 scnclr: Drine: print” Wirkl 
ich (J/N) ":getkey j$ 

26088 if j$<>"j"” then 468 


2618 sencelr:print:print:print: 


print 

2628 for s=]I to z 

2638 of=( sals)+ir( s)+li(s) +ni( 
5) +ve(s) +tal(s)) *590008 

2648 om=( os(s) +oi( s) +tol( s) tog( 
Ss) +tov( s) +oa( s) ) #258 

2658 if kr(s)>®B then Race) an 
s)-(kr(s)*#1.15) 
kals)=of+tom+kals) 

ka(s) SRALSIFPULE TIERE 
next s 

print” Abrechnung: ” 

print" = 
print 
c=1:if z=1 then 2848. 

for j=-1 to z-1 

if kat J)>=kal j+1) then 28 


2678 
26858 
2698 
27808 
2718 
2728 
2738 
2740 
28 

2758 
2768 


kr=kal y) 

kal j) =kal j+t1) 
kal j+1)=->kr 
z$=na$l J) 

na$( 3) =na$( j+1) 


2788 


2888 na$( j+1)=z$ 

2818 c=0 

2828 next 7 

2838 if c=8 then 2728 

2848 for i=1 to z | 

2858 printi; ehr$( 157) ".";na$li 
) 

2868 print” $"; :print using 


"A,HHR,HAHR, BHHT Kali) 


Saudi-Arabien "jsa 


Oil-LCompany 


283708: print = een 
2888 
2898 
2908 
#4 
2918 bb yeaa 
2928 if kals)<® then su=®-kal(s 
):kals)=kals)-(su#3.2) 


next i 
poke888,11®8:end 
rem ### DESENErBE spieler 


2938 if sa(s)>® then os(s) =os{ 


s)+190*sals): Rala)=Rar a) -2500* 
os{s) _ 
2948 if ir(s)>® then oi(s)>=-oif 
's)+ 88*#ir(s): kals)=kals) -2500* 
oi(s) 

2958 if 1ils)>® then ol(ls)=olt 
s)+128*1i(s) :kals) =ka( s) -15900* 
ol(s) 

2968 if nils)>0 then og(s) =ogf( 
s)+118#ni(ls): ‚kals)= Skala) -2500* 
og( s) 
2978 if ve(s)>8 then ov(.s) =ovt 
s)+168*ve(s) :ka(s)=-kafl s) -1588* 
ov(s) 
2988 if al(s)>8 then oals)=oal 


s) +78*#al(ls) :kals) =kKal s) -1580*0o_ 


als) 

2998 pb-®@ 

3988 mr-mr+(int(rnd( B) *600B00) 
-25080808) 

3818 if mr<5B8888 then mr=>-5B8988 


3828 if mr>128088088 then mr=120 


a9808 

3830 mk=mk+C int rnd( 8) *508008) 
-2198088) 

3848 if mk<5988088 then mk=50088 


3858 if mk>188880088 then mk=-1080 


ve 

3868 mp=mp+( int( rnd( 8) *480000) 
-180000) Ä 

3078 if mp<59888 then mp-5B800 
3888 if mp>B888088 then mp=-880808 
28 
3898 
31908 
3118 
3128 
3138 scnclr:print:print 
3148 if kals) >999U908088 
pu( s)=pu( s) +1808:g0t03268 
3158 if kals) >7BB9uH9HH88 
pu( s) pu( s) +94:g0t03268 
3168 if kals)>5HB0u80008 
pu(s)=pu( s) +88:g0t03268 
3178 if kals)>2800000008 
pu(s)=pu( s) +698:g0t03268 
3188 if ka(s)> 8BHB90008 
pu( s) =pu( s) +50:g0t03268 


ri R z R ae ug Namen an ne nennen ann 


goto1i978 
rem ### punkte Frame 


rem FREENET 
then 
then 
then 
then 


then 


pb=pb+1:if pb>1 then 3358 


<mp> 
<bg> 


.<ae> 


<jl> 
<fg> 


<em> 
<nf> 
<hg> 
<nh> 
<ng> 
<bj> 
<ji> 


<cn> 


<je> 
<im> 


<fa> 


<jp> 
< jm> 


<fm> 


<mm?> 
xmg> 


<dd> 


<ep?> 
<la> 
<dd> 
<ji> 
<ne> 


<oc> 


<il> 


<ea> 


<ef> 


<ce> 


.3488 


ahme 


5 


3198 if kals)> AdB09a0008 
pu( 5) =pu( s) +45:g0t03268 
3208 if kals)> 208000080008 
pu( s)-pu( s) +31:g0t032608 
3218 if kals)> 19889000009 
pu( s)=pu( s) +25:goto3268 
3228 if kals)> 198009800 
pu( s)=pu( s) +29:g0t03268 
3238 if kals)> su880088 
pu( s) =pu( s) +17:g0t03268 
3248 if kals)> 18940999 
pu( s)=pu( s) +198:g0t03268 
3258 om=os(s)+oi(s)+ol(s)+og(s 
)+tov(s)+oals) 

3268 oe=os(s)+toi(s)+tol(s)+og(s 
)+ov(s)+oafs) 

3278 pu(s)=pu( s)+(oe/1®8®) 

3288 of=sa(ls)+ir(s)+li(s)+tni(s 
)+ve(s)+tall(s) 


then 


then 
then 
then 


then 


3298 pu(s)=pu(s)+(of*#15):if pu 


(s)>3288 then pu=-3288 


3388 pu( s)=pu(s)-int( kr/259998 
) 
331@ if yb=8® then 33598 
3328 if xb=® then pu(s)=pu(s)- 
47 | 
3338 if xb=1 then pu(s)=pu(s)- 
34 
3348 if xb=2 then pu(s)=pu(s)- 
21 j Ä | 
3358 graphic1,1 


‚ fast:for x=58 to 188 

3378 draw1,x,158 to x, 158-int( 
pu( s) /35) | 

3388 next x 

3398 draw! ‚208, 158 to 138, 150: S 
low 

3488 
3418 
34208 
3438 
34408 
34508 
3468 
3478 


pu$=str$(int(pu(s))) 
char1,17,2, „punkte” 
char, ‚17, 3, ln 
char ‚2, a, "punktzahl:” 
char1,2,6,(pu$) 

getkey a$ 
graphic9:goto46B 

rem *%## menuepunkte 
char1,28,8,"Bohrung 


3498 char1,28,18, 
3588 char1,28,12,"Transport/Ve 
rkauf" 

3518 char1,28,14,"Kredit 


3528 char1,28,16, "Punkte 


3538 char1,28, 18 ‚"N"+zq$+" chst 
er Spieler " 
3548 chari ‚2b, 


28, "Ende 


.<sco> 
then. 


<db> 
<dn> 
<bc> 
N 
<pf> 
N 
<ni> 
<od> 
En 


<bd> 


<fg> 
<he> 


<am?> 
<be> 


<bl> 
<ip> 
<kp> 


<ga> 
<bl> 


<aj> 
<de>. 
<k j> 
<ol> 
<kn> 
<je> 
<ig> 
<pm> 
<pj> 


| <kn> 
"Bestandsaufn | 


<ge> 


<eh> 


<kg> 


<mg> 


<an?> 


3558 return | 
3568 data” Sie kaufen 198.808 


t "yn$"1 in Saudi- Arabi 
en. Preis $134.000.”,100,-1348 
00,0 a | 

3578 data” "yn$"”1 ist ausgelau 
fen I Kosten $134.957",8,-1349 
57,80 | un: 
3588 data” Sie erben ein "yn$” 


1 i 
3598 data” Sie verlieren einen 
Prozess wegen Steuerhin 
terziehung. Sie m”"zs$"”"ssen 
..$858.008 Kaution zahlen." 
‚8,-859000,0 | 
3688 data” Sie machen eine Feh 
linvestition in. eine Comp 
uterfirma. | 
Verlust: $1.259.0988”",8,-125808 
88,0 
3618 data” Sie gewinnen einen 
‚Prozess und be- Ä kommen $1 
.588.0808”,0, 15988008, 8 


3628 data” Einer Ihrer Bohrt"”z 


s$"rme explodiert. Zahle 
n Sie $6808.8088 um den Schaden 
zu ersetzen.”,®8,-688088,8 
3638 data” Sie legen $3.988.980 
@ in Aktien an und gewinnen 
$5.3088.0080.”,08,5380908,8 
68888 rem nachspann =======-=== 
68818 rem zeichensatz/graphik 
68828 s2$=chr$( 168) :zq$=chr$( 1 
87) | 
68038 zr$=chr$( 188) :zs$=chr$f 1 
89) | | | 
68848 zt$=chr$( 198) :yn$=chr$( 2 
20) | 
68858 return 


lfeld in Saudi-Arabien !",0,0, 


<db> 


zsec?> 


ren. 


musıc- 


GENIE 


Der Name spricht für sich. Dies ist ein Programm, 
das dem Basic-Programmierer mit geringsten Auf- 
wand gestattet, eigene Musikwerke zu erstellen und 
— wie bequem — diese auch sofort in Form eines 
separaten Datenfiles auf Diskette abzuspeichern. 
Zum Erzeugen und zur Eingabe dieser Musiknoten 
halten Sie sich am besten an das Handbuch zum C 
128, Anhang F. Hier sind nämlich die einzugeben- 


_ den Parameter aufgeführt. Geben Sie diese einfach 


ein. In diesen Modus kommen Sie durch das Haupt- 
menue-Punkt 1 = Neue Musikdatei einrichten. 

Es erscheint nun ein Untermenue, in dem Sie 
ebenfalls wieder Punkt 1 (= Noten eingeben. Hier 
sollten Sie sich eben diese aus dem Handbuch ab- 
tippen. Unter Punkt 2 lassen sich diese Noten über- 
prüfen, Punkt 3 erlaubt Ihnen, sich ein kompo- 
niertes Lied anzuhören und der Punkt 4 wurde 
vorher schon angedeutet: Von jeder selbstkom- 
ponierten Melodie lassen sich hiermit DATAs 
erzeugen, die in eigenen Programmen wieder ver- 
wendet werden können. Mit Punkt-5 kommen Sie 
wieder ins Hauptmenue. Ä 

Darin läßt sich Menuepunkt 2 aufrufen: Daten 
verändern und neu bearbeiten lassen. neu, 

Zu diesen Funktionen bedarf es keiner großen 
Erklärungen, das Programm ist vorbildlich menue- 


gesteuert und bietet Ihnen in bei jeder Abfrage in 


Klammern dahinter die kleinste und größtmög- 
liche Zahl für die Parameter-Eingaben. Ä 
Sollten Sie mal aus Versehen bei der Datenein- 


gabe die STOP-Taste erwischen, kein Problem. Sie 


ist außer Gefecht gesetzt, Sie können Ihre bis da- 
hin eingegebenen Daten nicht durch eine unvor- 
hergesehene Beendigung des Programmes verlie- 


Sehr komfortabel gestaltet sich die Wahlmög- 
lichkeit 3 (Diskettenoperationen), die — wie be- 


reits erwähnt — die Musikfiles in der vonIhnener-- 


stellten Art auf Diskette speichert. 


Zum Beenden dieses Musik-Utilies drücken Sie 
im Hauptmenue die Taste ‚4. 


(A. Füngling/h.b.) . 


2508 


Music Genie 


18 rem musik genie re a 
28 rem (p) 87/87 commodore wel 
t= u > ad 

a0 rem (c) 87/87 by F 
58 rem a. fuengling 
68 rem 

78 rem version 7.8 4ABz/ascii 
88 rem 128 pc + floppy 

98 rem ====->-=-=-=-.--.-.-.-.---.- een 
95 es 60088 


188 ro$=chr${( 18): rf$=chr$( 146) 
118 printchr$( 14): color®, 2:col 
orS, 1:color4,]1 

128 ifpeek( 215)=128thenprint: p 
rintro$”schalten sie den 48-ze 
ichen modus an |! "rf$:end 

130 : | 

140 dimno( 588, 3) 

158 printchr$( 19) chr$( 19): scenc 


1r 


168 char1,8,® ‚ro$+"M us ik 
Geni e Fe S.A - Soft” 
+rf$ | 

178 printchr$( 27) +”m” 

1880 char1,8,24,ro$+" - Alexand 
er Fuengling, Tel 02581/1922 - 
"+rf$ 

198 windowß, 1 ‚39, 23 

288 printchr$( 27) +" 1” 

248 rem Hrtsrahiestitsiattattttttt 
228 rem *## hauptmenue ru 
2398 rem HHHRRRRRRRRRRRRRIR 
248 scnclr | 
char1,18,8,"*** Hauptmenue 
zur" 


char1,8,2,"Gespeicherte No 
:printno;"Speicher"”;fre( 


268 
ten 
1) u 
278 char1,8,5,”>>1<< Neue Musi 
kdatei einrichten" E 
288 char1,8,7,"”>>2<< Musikdate 
n verarbeiten”. | 
298 char1,8,9, 
operationen" 
388 char1,®8,11 
beenden". 
318 char! 
328 


">>3<< Disketten 
Bee Programm 


‚8,17, "Eingabe . 


char1,8,18,"”. "122 


‚428 


$:poke288,8 

338 getkeya$ 

348 ifa$<"1"ora$>"”4" then33® 
358 char1,18,17 ‚a$ - 

368 on valla$) goto A008, 1198, 2 


 319,2238 


370 rem Hrasmsaueeeeeeenen 
388 rem * neue musikdatei * 
398 rem HHHHHHErtarstststshe 
488 scnclr:print:print"Soundpa 
rameter (j/n) ?”;:getkeya$:ifa 
$<>”" j"thenwp=1 

418 ifa$="j"then begin 
fori=1to 3:scnclr:char1,®, 
Bd, "Parameter fuer Stimme ":pri 
nti 

438 char1,8,2, "Richtung MARIGE 
q Stufe Welle Impulsbrt. 


448 char1,8,4,22$+” "+z 

2$+z2$+z22$+z2$+z2$+" "+z2$t+z 
2$+z2$+z2$+z2$+” "”+z2$+"” = 

+22$+z2$+z2$+z2$ | 


458 char ‚0,3 »  :qi= 1: gosub830 
468 ify1$=chr$( 13) thengoto480: 
else sp(i,1)=val(y2$) 

478 ifsp(li,1)<Borsp(i,1)>2then 
char1,8,3,chr$( 27) +"”q”:g0t0458 


488 char1,9,3,”":q1=5:gosub838 


498 ify1$=chr$( 13) thengoto5S1®: 
else sp(i,2)=val( y2$) 

588 ifsp(i,2)<Borsp(li,2)>65535 
thenchar1,9,3 ‚chr$( 27) +"q" 
0488 


1) 
5208 ify1$=chr$( 13) thengotoS4B: 


else sp(i,3)=vally2$)_ 


538 ifsp(i,3) <Borsp(i,3)>32767 
thenchar1, 17,3 BEnree :g0 
to518 

548 char1,23,3 ‚""iqle 1:gosub83 


558 ify1$=chr$( 13) thengoto578: 
else sp(i,4)=val(y2$) 


568 ifsp(i,4)<Borsp( i,4)>3then 


char1,23,3,chr$( 27) +"”q" 
1%) h 
578 char1,29,3,"":q1=4:gosub83 


:gotoS54 


588 ify1$=chr$( 13) thengoto638: 
else sp(i,5)=val(y2$) 


598 ifsp(i,5)<Borsp(i,5)>489St 


henchar1,29,3,chr$( 27) +"”q"” 

0578 

688 char1,8,5 PBroberrenuenz - 
"+chr$( 27) +"q": q1=-5:gosubB3B: 

fr=val(y2$) :ify1$=chr$( 13) then 


got 


97 


got 


518 char1,17,3 ‚"":gis =5:gosub83 


878 


638. u | . 
618 char1,®8,6, ar EeBESUBr. - 
"+chr$( 27) +"q 


”:qi=5: gosub83@: 
ify1$=chr$( 13) then630 u 


628 soundi,fr,val(y2$), spli, 1) 


Ä ‚spli, 2), spli, 3, spli, a), spl(i, 
5) 

.638 poke288, d:charl, O, B, "Alles 
soweit richtig (3/n) 7":getke 

ya$. 

648 ifa$="n"thencharl, oe, 3 ‚chr$ 

(29) +"q":goto4508 

658 nexti:bend. 

668 ifwp=1thenbegin 

678 char1,®8,4, 
nimmt das Programm": 

688 char1,8,5,"die Normal - 
rameter.” 

698 fori=-1to3:spli, 4) =2: spli, 5 
)-2848:nexti: sleep! 

788 bend 

718 scnclr | | | 
728 char1,8,8,”Ihre Parameter 

sehen nun wie folgt aus :” 

738 char1,8,2,"SOUND1,b,c" 

i=1t05:print"”,"sp(1,i); :nexti 

748 char1,8,4,"S5S0OUND2,b,c”:for 

i=1t05:print","sp(2,i); :nexti 

758 char1,8,6, "SODUND3,b,c"”:for 

i=1t05:print”","sp(3,i); :nexti 


Pa 


"In diesem Fall . | 
_<mg> 


:for. 


<nd> 


<jg> 


<bg> 


<og> | 


<hb> 
<ki> 
<gi> 


<hp> 


<me>. 


<nf> 
<la> 


<1m> 


<al> 


<bj> 


<ch> 


768 ifno>döthenprint:print:prin 


t"Wollen Sie die alten Noten 1 
oeschen” :print”( j/n) ?”:getkey 
a$:elsechar1,8,9,"Taste.":getk 
eyw$ | 
770 
788 
798 
808 


ifa$="j"thenno=® = 
goto248. | 

rem HRRRRRHREERESSISIHESEIN 

rem * input-eingabe *# 

B8I8 rem HHRRRRHERISESESESIESEIE 

828 ez$="qwertyuiopasdfghjklzx 
cvbnmaAWERTYUIDPASDFGHJUKLZAÄCVBN 
ua?” | 
838 ez$=-ez$+"” 1234567890" s 
8408 iflen{ez$)>76thenez$-"":go 
t0o838 | 

858 gosub868:eg$=y2$:return 
868 q9=peek( 2598) :poke2598,0:q 
4=8:y2$="":poke2599,8 | 
getkeyy1$ 
ify1$=chr$( 13) then988 
ify1$=chr$( 18) then988 

988 ify1$=chr$( 28) then 1938 

918 Irga=githenprintehre( 7), 
oto87®8 


888 
898 


928 qS=-instr(ez$, y1$): ifgS-@th 


 enprintchr$(7); 
938 poke2688, 2. 


:g0t0878 


<pa> 
<fl> 
<co> 
<hc> 


<ko> 
<ig> 


<fh> 


<he> 


<id>. 
<jd> 


.<bb> 


<1b> 


<cc> 


<cj> 


ae 


<ab> 


<oo> 


<gc>? : 


988 


1818 


1178 


1278 chari, 8,1 ‚str$(no)+" 2 


.635).: | 
ub830:ifvally2$) <Borvally2$)>6 


948 ifpeek( 2598) then948 Ä 
958 printyi$; :y2$=- y2$+y1$: q4=q 
4+1: goto878 

968 : 

978 : 


poke2688,2 
ifpeek( 2598) then99® a 
poke2599,1: poke2598,99 
ify2$<>""thenyi$=-"" 
1828 return | | 
1838 ifgq4= Othenprintchr$(7);:8 
oto878 _ | 
1848 poke2608, „2 


998 
1888 


1858 ifpaek( 2598) then185® 
ah ie 1:y2 


10868 printchr$( 20); 
$=left$ly2$,q4): 2010878 
1878 rom KERunmEnmen 
1888 rem * nebenmenue * 
1898 rem Krause 
1188 scnclr 
1118 char1,18,®, 
e #0" 


1128 char1,8,2,"Gespeicherte N 


oten :":printno;"Speicher”;fre 
{[ND. | Ä 
1138 char, 8, 5, ">>1<< Noten ei 
 ngeben"” | | | 
1148 char1,®6, 7, ">2>2<< Noten ue 
 berpruefen" | ae, 
‚1158 char1,®,9, "2>3<< Lied spi 
elen"” | 


1168 char1,8,11,”>>4<< Datas e 
rstellen” 
char1,8,13,” 


nue seriassen” 


>>5<< Nebenme 


1188 char1,®,16 "Eingabe" 
1198 


char1,8,17,” 
:poke288,8 
1289 getkeya$: ie 1 "ora$>"5" 


"+172$ 


'then1288 


1218 char1,8,16,a$ 
1220 onvalla$)goto1268, 1428, 17 
98, 1888: „248 


1230 rem PORERREEEEEEEUEEDT. 


1248 rem #* noten eingeben * 
1258| rem HH HBRHERRRRRIT 
1260 


o=no+#1 


ikdate eingeben = \ 
1288 char1,8,3, "Stimme.. 


then1i288 


1298 no(no,1)=vally2$) 


1388 char1,8,4,”Frequenz.( 8-65 
"+chr$t 27) +"q”:q1=-5:gos 


88 | 


"ar Nebenmenu 


dowhilenotno=58®8:scnelr:n 


Mus 


| .11-3) 
ae : "+chr$( 27) +"q” :qi=1:gos 
‚ub838: eupll yes) siorvellyen) 2 


_<ma> 


<go> 


5535then1388 
1318 no(no,2)=val(y2$) 

| ee 
767).: "+chr$( 27) +"”q”:q1=5:gos 
ubB3B: ifvally2$)<Borvally2$)>3 

2767then1328 

1338 no(no,3)=vall y2$) 

1340 char, 8,8,ro$+"LINE FEED" 

+rf$+” — quittiert/"+roß+"TAST 

E”+rf$+” - fortfahren” 

1358 getkeya$ 

1368 ifa$=chr$( 10) thenexit 
1378 loop 

1380 goto11B8 

1398 rem Hr 

1488 rem * daten anzeigen * 
1418 rem HHRHHHRRIRIRRRIRSRIESR I 
1428 ifno=döthenscnclr:chari,ß, 

3,"Keine Daten vorhanden !"”:ch 

ar1,28,5,"Taste.":getkeya$:got 

o1180 | 

1438 do:n=n+1: ifn>no then n=1 
1448 scnclr 

1458 char1,8,1,ro$+"LINE FEED” 

+rf$+"-quittieren / "+ro$+”v"”+ 

 rf$+"-verandern" 

1468 char1,®8,5, 


GM GEEERS AMNEEEE GEHEEE (AEEI CEMEHD GADERER GENRES GAMEMED dUUENED GUAM dAMMED (UihE GEMAED (ini. Geis GI GEM GENE (AM GEBMEND (GEEEM Gummmm qua GEM GRmmmED 


1488 soundno(n,1),no(n,2),no(n 
‚3),sp(no(n,1),1),sp(no({fn,1i),2 
),sp(no(n,1),3),sp(no(n,1),4), 
sp(no(n,1),5) 

1498 char1,8,6,str$({n)+"> SOUN 
D":printno(n,1)","no(n,2)"”,"”no 
(n,3) | 
1588 ifno(n, 1)<no(n+1,1)thenbe 
gin 

1518 n=n+1: soundno(n,1),no(n, 2 
),no(n,3),sp({no(n,1),1), Elnol 
n,1) ,2) ‚sp(no(n,1),3) ‚sp(nofn, 
1),4),sp(no(n,1),5) 

1528 char1,8,7,str$(n)+"> SOUN 
D": printno(n, ”, "no(n,2)"”,"”no 
(n,3) 

1538 ifno(n, I SnacH«T, !)thenbe 
gin 

1548 n=n+1: Binden, 1), non, 2 
),no(n,3),sp({no(n,1), 
n,1), 2), non; 1), 3), sp(no(n, 
ı), a), slnoln: 1), 5) 

1550 char ‚0,8 ‚str$(n)+"> SOUN 
DF2 printnofn, ı)", "non, 2)"”,”"no 
'({n,3) 

1568 bend:bend 

1578 getkeya$ 

1588 ifa$=chr$( 18) thenexit 


1), spt not | 


<ah> 


<id> 


<kl> 
<ji> 


<hg> 
<ek> 
<ae> 
<el> 
<le> 
<pg> 
<bn> 


<ak> 


<nn?> 
<cc> 


<in> 


<ch> 


<pp> 
<an? 
<ef> 
<ol> 
<oj> 
<mg> 


<ak> 


.<ah> 


<of> 


<ck> 
<ig> 
<ch> 
<ob> 


1768 


1830 


88 


15908 ifa$="v"thenbegin 


"Welche Nummer 
"+chr$( 27 


1688 char1,8,13, 
(1-"+str$(no)+") ef 
)+"”qg”:q1=3:gosub838 


1618 ify1$=chr$( 13) thengoto171 


1628 ifvally2$) >no orval(y2$)< 


Iithen1688:else wa=val(y2$) 


1638 char1,8,14,"Welches Feld 
(1-3) ... "+chr$( 27) +"q"”:q1=1: 
gosub838 | | 


1648 ify2$<"1"ory2$>"3"then163 
B:elsewb=val( y2$) 
1658 char1,8,15,"”Feld 
b) +" "+chr$( 27) +"”q” 
"2"theng1i=1:elseq1i=5 


"+str$(w 
:ify2$< 


1668 gosub838 


1678 ifwb=1andy2$<"”1 "ory2$>"3" 
thengoto1658 

1688 ifwb=2andy2$<"B"ory2$>"65 
535"thengoto1658 

1698 ifwb=3andy2$<"Q@”"ory2$>"32 
767"thengoto1658 

1788 no(wa,wb)=val( y2$) 

1718 char1,8,17,"Noch etwas ve 
raendern ( j/n) ?":getkeya$ 
1728 ifa$="j"thenprintchr$( 27) 
+"p”":goto1688:elsechar1,®8,13,c 


hr$( 27) +"@" 
1738 


bend 

loop 

goto1188 _ 

rem FH RER 


rem * lied spielen *# 

rem FRRSEHUNEEEEREEEEN 
1798 ifno-=-döthenscnclir:char1,®, 
3,”"Keine Daten vorhanden !"”:ch 
ar1,28,5,"Taste.”:getkeya$:got 
01188 

1888 forn=1tono 

1818 soundno(n,1),no(fn,2),no(n 
‚3),sp(no(n,1),1),sp(no(n,1),2 
),sp(no(n,1),3),sp(no(n,1),4), 
sp({no(n,1),5) 

1828 nextn 

sleep! 

goto1188 

rem HRRRRHRRHRRREIETRIEN 
rem * datas erstellen * 
1878 rem HH 
1888 scnclir:ifno=8dthenchar]1,®ß, 
2,"Es gibt keine Daten !”:char 
1,28,4,"Taste”:getkeya$:goto1i 


1748 
1758 


1770 
1788 


1848 
1858 
1868 


1898 char1,8,1,ro$+"Datas este 
llen :"+rf$ | 
1988 char1,8,3,"Das Programm c 
riert nun die Datas Ihres" 


<df> 
<ab> 


<la> 


<nn> 


<mp> 
<shs 
<nn> 
<kk> 
< jm> 
<hl>. 


<ih> 
<gm> 


<ml> 


<fo> 
<np> 
<lo> 
<ch> 
<bf> 
<ab> 
<cj?> 


<fa> 


.<ac> 


<jb> 

<pd> 
<gh> 
<ic> 
<oo> 
<ej> 
<ac> 


<im> 
<pl> 


<ga> 


1918 


{4 a), "+str$Cspl1, ‚5))+" 


2 "+str$( sp 2,3)) +" 


Music Genie 


char1,8,4, "Liedes. 
s damit Fertig ist, 

1928 char1,8,5, 
h selbst, d.h. es "” 
1938 char1,®,6, 
n nur noch Ihre Datas 11" 


Wenn e 


1948 char1,80,8,"Sind Sie siche 
r, dass Sie nun „beginnen” 
1958 char, 0,9, "wollen {3/m) ? 
1968 deinen 
1978 ifa$<>" j"then1198. 
1988 scnclr 
1998 print” 19000 fori= 1t0o”"no" 


reada,b,c"” 


2008 print" 18018 onagosub18038 
‚10948, 198059” 
2810 print” 18028 nexti: end 
2028 a$="18838 sound1i,b,c,"+st 
e8Cept1, 1947, ">ser@lenl1.23)4 
"+str$(sp( 1,3))+”,”+str$( spl 
:retu 
":printa$ 
>038 a$="10040 sound2,b,c,"+st 
r$( spl2,1))+"”,”"+str$( sp[2,2)) + 
‚„"+str$( spl 
m SFSErSl aple; 5))+":retu 
".printa$ | 
2048 a$=-"18058 sound3,b,c,"+st 
r$(sp(3,1))+","+str$( sp 3,2)) + 
”" "+str$(sp(3,3))+","+str$( spl 
3 an "+str$(spl 3,5))+":retu 
":printa$ 


>ase print” goto2ua0": 
= 4 zur 


rem Ft## 


2868 poke842, 19:fori> 1t07: poke 


842+1,13:nexti 
20708 Poke208, 8 


2888 end 

2898 zh=180898:n=-90: rem FH#F*# I 
[2.2.2 2 2 Zu 

2188 scnclr:zh=zh+1@:n=n+1:ifn 


=no+Äithen2168:rem #F#F#3* 2 F##% 
= | 


2110 printzh" data”no(n,1)"”,"no. 


(n,2)","no(n,3) 


'- 2128 print” g0t02@1@":rem RARER 


® 


2 #244 
2138 poke842,19: Poke843, 13° Ber 


e844,13:poke288,3 


2148 
2158 
2168 
2178 


end 

scnclr 

scncir 
print"delete-9999": E® 


print:print: print"Speichern Si 


e sich Ihre Datazeilen ab !!" 
2188 poke842, 19: Porn 13: pok 
e288,2 


"1oescht e5 sic 


"axistieren aan 


<1k> 


<ap> 


<of> 


<ji> 


<ap> 


<ko> 


<ae> 


<k1> 


<db> 


<dl> 
<ci> 


<pe> 


<af> 


2288 


2248 


2318 


2480 


2198 end 


rem LE 2.2 2.2.2 22 2.2.2.2 2.2.22 2200 


rem * programm beenden * 
rem HRRRRARRRRRRRESESEESEN 


senclr:printchr$( 19) chr$( 


2218 
2228 
2238 
19) ; | | 
char1,8,3,"Tschuess, bis 
zum naechsten Mal !" 

2258 char1,8,5,"”"” 

2268 end 

22978 rem * programm beenden * 
2288 rem. RRRRRREIISIIIEIEIIESESEN 


2298 rem * disk- operationen * 
2308 rem WHRIHHRE EEE 
sencelr 

2328 print:printro$” Disketten 
operationen"”rf$ | 


2338 print | 

2348 print:print”">>1<< - Datei 
laden" = 

2358 print: print” >>2<< - Datei 
speichern" 

2368 print:print">>3<< - Diske 
tte formatieren” _ u 

2378 print:print">>4<< - Diske 
ttenverzeichnis"” 

2388. print:print"”>>5<< - Datei 

en umbenennen” 

2398 print:print">>6<< - Datei 

en loeschen"” 

24808 print:print"” >>7<< - Menue 
quittieren"” | 

2418 char1,®8,19 "Eingabe en 

2428 char1,9,208, 

2$:poke288,® 

2438 getkeya$ 

2448 ifa$<"1"ora$>"7"then2438 

2458 char1,18,19,a$:a=valla$). 

2468 onagoto2588, 27280,2870,302 


0,3898,3228,248 
2478 rem HHRRIRIRIRIESRIESRIEIE EHE 


rem * dateien laden * 
rem HRRRRRERRARSE RE 


scncir 


2498 
2588 
2518 
n"rf$:q1=16 


2528 print:print"Name der Date 
ii : ";:gosubd28:q1=-BB 


2538 ify1$=chr$( 13) then231® 
2548 dopenf1,(y2$) _ 

2558 gosub3299:iff$="fehler" th 
enf$="":dclose#1:goto2580 

2568 input#1,no:fori=1t0o3:foro 
=1t05:input#1,sp(i,o) :nexto,i 
2578 fori=-1tono:foro=1to03 
2588 input#1,no(i,o) 

2598 nexto,i: closel: ifyt- ithen 
yt=- =ß: Feuer 


100 


"ıZz. ; 


print: printro$"Datei lade 


2688 ner 


2618 print: printrog” Datei lade 
n"rf$ 


2628 print:print 


-2638 print"Name : "y2$ 
2648 print:print"Daten :" 
no | = 
2658 print 
2668 print” Diskstatus: "ds$ 
2678 print:print"Taste ";:getk 
eya$. “\ 
2688 goto248 B 
2698 rem HHHHareeseraeeeereeee 
2788 rem * dateien speichern * 
2718 rem FrrHeenetaeeeren 
2728 scnclr 


2738 print:printro$"Dateien sp 
eichern”"rf$ 

2748 print:print”"Name der Date 
i: ";:q1=16:poke298,9:g0sub82® 
:ify1$=chr$( 13) thengoto231® 


. 2758 print:print"” Bitte haben 5 


ie etwas Geduld ... 
2768 dapen#i.(v3s) 4 3854065206 


:iff$="fehler"thengoto2728 


2778 


print#1:print#1,nochr$( 13 


) :fori=1t03:foro=1t0S: print#1, 


sp(i, 
2788 
2798 
28808 
2818 


"ds$. 


2828 


eya$ 


2838 
2848 
2858 
28568 
2878 
28808 


o) chr$( 13) : nexto,i _ 
fory=1itono:foru= 1to3 
print#1,no(y,u)chr$( 13) 
nextu,y:dclosef1 
print:print"Diskstatus : 


print:print"Taste 


goto240 


rem EN 


rem #* formatieren *# 
rem TRANS TerEee 


scenclr 


print: printro$"Diskette f 


ormatieren"rf$ 


2898 


'ion fertigmachen. 


2998 
2918 
ette 
2928 
29308 
29408 


n Sie eine Taste, 
losgehen ! 


2958 
2968 
29708 
eya$ 
29B8 
2998 


print: print"Diskettenstat 
ıı" 
poke298,8:q1=16 
print:print"Name der Disk 
: "::gosub828 
ify1$=chr$( 13) then2318 
na$=z2$ s 
print:print:print"”Druecke 


"..getkeyaß 


‚header(na$), dd,isa 


print:printds$ 
print:print"”Taste ";:getk 
g0t02310 | 

rem #RUSHSEEEEEER 


";:getk 


dann kann es 


 <bk> 


<li> 
.<lc> 


<1h> 


<mn> 
<pn> 
<mp> 
<jn> 
<kb> 
<in> 
<be> 
<kb> 
<jc> 


<aa> 
<nk> 
<hc> 


<el> 


<fe> 


<ko> 
<cj? 


<pb> 


<di> 


<de> 
<di> 
<ci> 


<em> 


<dm> 
<cj> 


<ijf> 


<ab> 


<mb> 


<ei> 


<eh> 
<jc> 


<ff> 
<cp> 
<mc> 


<mk > 


<po> 
<gk> 


.30868 rem 


3888 rem * directory * 

3818 rem Krater 

3828 scnclir 

3838 directory | 

3848 Bones @:print: print" Tas 


te ";:getkeya$ 

3050 goto2318 

2.2. 2.2.2. 2.2.2.2 2.2.2 02.2.2.2.2.2 02.3 
3878 rem 
3980 rem Fraweeeterereerttee 
3898 scenclr:print:printro$"”Dat 
eien umbenennen"rf$ | 
3188 print:print"”Alter Name : 


“dateien umbenennen # 


".:gosub828 


‚3118 


ity1e7ehrs 12)Ehen2319 


3218 


3129 al$=-y2$ 

3138 print:print”Neuer Name : 
"::gosub82 

3148 ne$=y2$ | 

3158 rename( al$) to(ne$) 

3168 print:print"Diskstatus : 
"ds$ | | 
3178 print:print"Taste ";:getk 
eya$ | 

3188 goto2318 

3198 rem HBRRRRRRORRRRREINIEN 


32808 rem * dateien loeschen *# 


rem FRENCH 

3228 scnclr 

3238 print:printro$"Dateien lo 

eschen"rf$:q1=16 

3248 print:print"”Zu loeschende 

n Datei : ";:gosub828 

3258 ify1$=chr$( 13) then2318 

3268 scratch(y2$) :q1=88 

3278 print:print"Diskstatus : 
"ds$ 

3288 print:print:print"”Taste 
;:getkeya$:goto2318 | 
3298 ifds>Bthenf$="fehler" 

e3428 

3388 DEOST ISchenpe ine print” "Di 
skfehlermeldung : "”;ds$ 

3318 ifds=-28thenprint"Blockken 

nsatz nicht gefunden” 

3328 ifds=21thenprint”Kein Syn 

chronisationszeichen" 

3338 ifds=22thenprint"”Datenblo 

ck nich verf"+zs$+”gbar" 

3348 ifds=-23thenprint"Pr"+zs$+ 
"fsummenfehler im Datenblock"” 
3358 ifds=26thenprint”Diskette 
hat einen Schreibschutz” 

3368 

m Filenamen” 

3378 ifds=-62thenprint"” Datei ni 

cht gefunden" 

3388 ifds= =63thenprint” Datei is 


‚els 


101° 


ifds=-38thenprint”Fehler i, 


t schon vorhanden” 


<pj> 
3398 ENoE: Les NonprAne Dlaketle 
ist voll.” | <ea> 
3488 ifds=-74thenprint" Das Lauf | 
werk ist nich bereit" <bo> 
3418 getkeya$ <fo> 
3428 return <ph> 
68888 rem nachspann ========== 
"z==== . <ag> 
68818 rem ### zeichensatz/grap 
hik * | | . <ai> 
68828 z2$=chr$( 163) :zs$=chr$t 1 
89) . | 0. <0J> 
68838 return <pg> 


'C128- ROM 
Im ÜBERBLICK 


Wo liegt was im C128-ROM? Alle Routinen, die zu 

nutzen vorteilhaft ist, haben wir zusammengetragen 

und alphabetisch nach deren Kurzbezeichnung aufge- 
listet — als Wegweiser durch das C128-Kernel. 


„Wo ist. denn nur diese 
ROM-Unterroutine??? 


Gestern lag sie doch noch 


bei $BC44! Ich hatte sie 
mir doch aufgeschrie- 
ben...‘‘. Die Freßzettel- 
pinselei und das Herumge- 
suche nach 128er Kernel- 
Routinen hat ein Ende. 


Es genügt fortan, diesen - 


Artikel zum Computer zu 


legen und schon haben 


' die Freaks der Maschinen- 


. $E43E: 


5C320: 


5 ‘ 


$B8D2: 


sprache alles in der Hand. 
Mehrfachnennungen sind, 
durch verschiedenen 
Kurzbezeichnungen, - be- 
absichtigt. So ist eine be- 


stimmte Routine leichter 


zu finden. Ä 
Sven Faulhaber u 


ACPTR-Routine 
ASCI in Bildschirm- 
Code umwandeln 
ASCII-Ausgabe von 
‚8/16-Byte 
ASCII-Wert in Bild- 
schirm-Codewert 
umrechnen 
ASCII-Zeichen aus 
Akkumulatorinhalt 
 aufbereiten 
ASCII-Zeichen aus 
Akkumulatorinhalt 
| errechnen 
$EAB8F: Abfrage der Dataset- 
| .ten-STOP-Taste 


50320: 
$B211: 


$FYFB: 


$C3F4: 
$B641: 


$BOC5: 


$BB8AB5: 


Abfragen der Com- 
modore-Taste 
Adresse eines Branch- 
Befehls errechnen 
Adresse eines Moni- 
torbefehls ermitteln 
Akkumulator als 


 ASCII ausgeben und 


$BI11A: 
$BI12A: 


SCDCA: 


$B13D: 


$B8D2: 


zum Zeilenanfang 
gehen 


Akkumulator aus be- 


liebiger Bank laden 
Akkumulator in be- 
liebige Speicherbank 
schreiben 


Akkumulator in das - 


VCR-Data-Register 
schreiben 
Akkumulator mit b 
beliebiger Speicher- 
stelle vergleichen 
Akkumulator wan- 
deln in X-Register- 
ASCII-Zeichen low, 
Akkumulator-ASCII- 


„Zeichen high 


$B802: 


$FYFB: 


5B8D2: 


$CC34: 
SC15C: 
$C72D: 


Akkumulatorinhalt 
als 2 ASCII-Zeichen 
(high/low) ausgeben 
Akkumulatorinhalt 


in ASCII-Zeichen 


aufbereiten 
Akkumulatorinhalt 
in ASCII-Zeichen 
umwandeln. Ergeb- 
nisse in Akkumula- 
tor und X-Register 
Akkumulatorinhalt 


in X-Farbe ausgeben 


Aktuelle Adresse des 
Cursors errechnen 
Ausgabe auf Bild- 
schirm 


$BO50: 
$C9C1: 
.$CC27: 


SB5F2: 


$B3C4: 
. $B8A5: 


$B8C2: 


„5 BAB5D: 
$C5D7: 


$CAEI 


SCAEC: 


$EFOG6: 
5 F934: 
$EF79 


$C9I8E: 


'$CESE: 
BCA24: 
S$CEOC: 


5CE74: 


$C72D: 
$CD2E: 
SCC5B: 
. $CB3E: 
$C6E7: 


$B641: 


$E3E2: 


$E224: 
$E795: 


$F127: 
S$CO7TB: 


$E503: 
5E723: 


$FI16D: 


$F222: 
S$F188: 
$C142: 
$F226: 


$F7E3: 
$B13D: 


$C76F: 
$BBO3: 


$C8A6: 


$E545: 
$E54E: 
$C3F4: 


$CD57: 


$C150: 


102 


Ausgabe der Register 
und Prozessorwerte 
Ausgabe einer ESC- 
Sequenz 

Ausgabe eines Leer- 
zeichen an. der Cur- 
sorposition 

Ausgabe von drei 
Leerzeichen 

Ausgabe von ERROR 
Ausgabe: Akkumu- 
lator als ASCII-Zei- 
chen und zum Zeilen- 
anfang gehen 
Ausgabe: Akkumula- 
torinhalt als zwei 
Buchstaben (high/ 
low) ausgeben 
Ausgabe: OPA 
Auswertung der Ta- 
staturergebnisse 


: Auto-Insert ausschal- 


ten 

Auto-Insert einschal- 
ten 

BASIN 

BOOT 


:, BSOUT 
$BOR3: 


BASIC-Warmstart 
Bell 

80 -Zeichen- Bild- 
Bildschirm als Fen- 
ster definieren 
Bildschirm auf 80 
Zeichen schalten 
Bildschirm für 40 


‚Zeichen initialisieren 


Bildschirmausgabe 
Bildschirmausgabe 


40/80-Zeichen tau- 


schen 
Bildschirmausgabe 
neu organisieren _ 
Bildschirmausgabe 
reverse | 
Blinkkontrolle des 
Cursors 
Branch-Befehlsadres- 
se feststellen | 
Byte an IEC-Bus 
senden 
C128MODE 

CHKIN 
CHKIN-Auswertung 
für IEC-Bus 


CINT. 


CIOUT 


CKOUT 


CKOUT für IEC-Bus 
CLALL 

CLOSE 
CLR/HOME. 
CLRCH 

CMPFAR 
CMPVEC 

Carriage Return 
Catalog 
Shift-Commodore- 
Taste zulassen 
Clock Signal high 
Clock Signal low 
Commodore-Taste 
abfragen 

Cursor 

Cursor Home im 
Fenster 


"$E919: 


TIPS & TRICKSEEEE 


SCB5l: 
$C33E: 


50875: 
80867: 
5C854: 


SC85A: 
- $C91B: 


S$CI4F: 


_ SCBOA: 


$CB20: 
$C6E7: 


BCC6A: 
BCC6A: 


$CCIE: 


5CC34: 


$F7A5: 


$E9ICS: 


$EAIC: 


$E9F2: 


 $C3DC: 


$B9I0E: 


I$BB03: 
$B3C4: 


BCAEC: 


$CAl5: 


SCAE9: 
SCAB1: 


$CBOA: 


$CB20: 


$CB36: 
5CB39: 


SCA3C: 
$CBBO: 


SCB5l: 


SCAEI: 


— 


Cursor ans Zeilenen- 


de bewegen 

Cursor ans Zeilenen- 
de setzen 

Cursor eins nach 
links bewegen 
Cursor eins nach 
oben bewegen 
Cursor eins nach 
rechts bewegen 
Cursor eins nach - 
unten bewegen 
Cursor nach links be- 
wegen und Zeichen 
löschen 

Gursor zum Tabula- 
toren fahren 
Cursorblinken: 
ausschalten 
Cursorblinken 
einschalten 


Cursor-Blinkgeschwin- 


digkeits-Kontrolle 
Cursorposition lesen 
Cursorposition set- 
zen 
Cursorpositionen. 
nach SDE/S$DF der 
Nullseite kopieren | 
DISPLAY _ 
DMA-ALL 
Datasettentasten- 
druck abwarten 
Daten auf Kassette 
schreiben 


Daten von Kassette 
lesen 


Datenblock auf Kas- 
sette schreiben 
Delete einer Zeile 
Differenz aus OPl- 
OP3 in OPI spei- 
chern 
Directroy-Routine 
ERROR-Meldung 
ausgeben 
ESC-Routine: A- 
Auto-Insert einschal- 
ten | 
ESC-Routine: B-Un- 
teren Fensterrand 
setzen 

ESC-Routine: C- 
Auto-Insert aus 
ESC-Routine: D- 
Laufende Zeile lö- 
schen 

ESC- -Routine: E- 
Cursorblinken ab- 
schalten. 
ESC-Routine: F- 
Cursorblinken ein- 
schalten 


ESC-Routine: G-Sig- 


nalton einschalten 
ESC-Routine: H- 
Signalton verhindern 
ESC-Routine: I-Zeile 
einfügen 
ESC-Routine: J-Cur- 
sor zum Zeilenan- 
fang bewegen 
ESC-Routine: K- 
Cursor ans Zeilenen- 
de bewegen 
ESC-Routine: L- 
Scrollen o.k. 


SCAEA: 


$CB47: 


ESC-Routine: M- 
Scroll-Stop | 
ESC-Routine: N- 


RVS im 80-Zeichen- 


modus ausschalten 


: ESC-Routine: O- 


Insert, RVS- und 
Qoute-Modi deakti- 
vieren 


: ESC Routine: R- 


Reverser Bildschirm 


: ESC-Routine: T- 


Oberen Fensterrand 
setzen 


; ESC-Routine: Text 


ab Cursor in Zeile 
löschen 


: ESC-Routine: U- 


Underline Cursor 
im 80-Zeichen- 
Modus 


: ESC-Routine: V- 
aufwärts scrollen 
: ESC-Routine: W- 


abwärts scrollen 


: ESC-Routine: X- 


Umschalten zwi- 
schen 40- und 80-Zei- 
chen-Darstellung 


: ESC-Routine: Y-Ta- 


bulatoren setzen . 


: ESC-Routine: Z-Ta- 


bulatoren löschen 


: Eingabezeile einlesen 

: Einlesen einer Ein- 
gabezeile 

: Einlesen von Farbe 


und Zeichen des 
Cursorstandpunktes 


: Einzelne Zeichen 
: Ermitteln der Tabu- - 


latorposition 


: Escape | 
: FAST an seriellen 

. Bus senden 
: FETCH 

: FETCH Ä 

: FETVEC Fetch 


Vector 


: FLASH-Modus set- 


zen 


: FSTMOD 
: Farbe setzen im 40- 


Zeichen-Modus 


: Farbe setzen im 80- 


Zeichen-Modus- 


: Fenster initialisieren 
: Fenster löschen 
: Fenstergrenzen defi- 


nieren 


: Fensterrand oben 


x setzen 


: Fensterrand unten 


setzen 


: Fensterzeile kopieren 
: Flash-Modus zurück- 


setzen 


: Funktionstasten defi- 


nieren 


: GET aus RS232-Puf- 


fer 


: GET von RS232- 


Schnittstelle 


: GETCFG 

: GETIN 

: GO64MODE 

: HOME im Fenster 


SC8B3: 
SEFSC: 
SE3SC: 


SCEOC: 
SC8E3: 

$F781: 
$E109: 


850234: 


$C207: 
$C194: 


$FAB6>5: 
SC7E5: 


_SCTEC: 


$CAIlB: 
SCA14: 


$C207: 


$EIDC: 


$C880: 


$CE74: 
$CESB: 
50961: 


$CIDF: 
$CA1l3: 
SCOTB: 
$EO4AB: 


$037C: 


SCAEA: 


$B1C9: 
$F82B: 
$FC837: 
$F867: 
$EE57: 
$ESDO: 


$E43E: 


Home-Taste testen 
IEC Bus auslesen 


$C98E: Klingeln 


$CEOC: 


$B901: 


S$C40D: 


50436: 


$E343: 


$F79D: 
$F786: 
$F265: 
$F27B: 
30258: 
$C29B: 
350234: 
$CC27: 


IEC-Bus-Vorberei- : S$SC9YB1: 
tung 
INIT 80. $BCAIE: 
INSERT ausführen | 
IOBASE ©980: 
IOINIT 
IRQ-Buffer auslesen $C93D: 
IRO-Register setzen . 
IRQ-Routine $C4AB5: 
IRO-Routine 
Initialisieren der Far-- $C4C0: 
be im 40-Zeichen- | 
Modus $F772: 
Initialisieren der Far- $F763: 
be im 80-Zeichen- $EO4B: 
Modus $BO3A: 
Initialisieren der Fen- 
stergröße $C40D: 
Initialisieren der Fen- $BO1l4: 
stergrößen 
Initialisieren der $BOS0: 
IROQ-Register 
Initialisieren der $BOE3: 
VDC-Register 
Initialisieren des $BI1DF: 
zweiten Zeichen- 5B194: 
satzes 
Initialisieren des 40- $B1AB: 
Zeichen-Bildschirms 
Initialisieren des 80- $B406: 
Zeichen-Bildschirms 
Initialisieren des Ta- $B231: 
bulators 
Initialisieren des 5B599: 
Text-Modus 
Initialisieren desobe- $BA90: 
ren Fensterrandes 
Initialisieren von Edi- $B3DB: 
tor und Screen $B1D6: 
Initialisierungswerte $B2CE: 
des MMU $B337: 
Insert einer Zeile $B152: 
Insert-Flag manipu- 
lieren $B337: 
Insert-Modus zurück- $B234: 
setzen 
JSRFAR $B337: 
KEY 
Kaltstart $BOC5: 
Kassettenbetrieb be- 
enden $BO003: 
Kassettendrivehand- 
ling $B009: 
Kernal-Routine: | 
ACPTR- $BO006: 
Kopiere Zeichensatz $B000: 
in VDC-RAM 
Kopieren desOPl-In- $E672: 
haltes nach OP3 
Kopieren einer Fen- SFA40: 
sterzeile $E805: 
Kopieren einer Zeile 
im 80-Zeichen- SC76F: 
Modus $BA07: 
LISTN 
LKUPLA 
LKUPSA | 
LOAD (Diskette) 8901: 
LOAD (IEC-Bus) 
LOOP4  $5BAB5SD: 
LOOP5 $EFBD: 
LP2 $EFFO: 
Leerzeichen an Cur- 5F040: 
sorposition ausgeben $CCA2: 
103 


'$FC87: 


Lesen eines Zeichens 
von Tastatur 

Line Feed durchfüh- 
ren 


ex Zeile ab Cur- 


Löschen der Tabula- 
toren 

Löschen des Zeichens 
unter dem Cursor 
Löschen einer 40- 


. Zeichen-Zeile 


Löschen einer 80- 
Zeichen-Zeile 
MEMBOT 
MEMTOP 
MMU-Tabelle 
MONITOR-Textmel- 
dung ausgeben 
MOVLIN 

Monitor neu initia- 
lisieren 
Monitorbefehl: Regi- 
ster 

Monitorbefehl: X _ 
(exit) 
Monitorbefehl: Jump 
Minitorbefehl: 
Modify Register 
Monitorbefehl: > 
Modify Memory 
Monitorbefehl: 
Assemble 
Monitorbefehl: 
Compare 
Monitorbefehl: 
Disassemble 
Monitorbefehl: 
Diskkommando 
Monitorbefehl: 
Monitorbefehl: 
Monitorbefehl: 
Monitorbefehl: 
Monitorbefehl: 
mory Display 
Monitorbefehl: 
Monitorbefehl: 
Transfer 
Monitorbefehl: 
Verify 
Monitorbefehlsadres- 
se ermitteln 
Monitoreinsprung 
durch Break 
Monitoreinsprung 
mit BREAK-Ausgabe 
Monitoreinsprung 
per Exmon 
Monitoreinsprung re- 
gulär durch Befehl 
NMI der RS232 
setzen 

NMI-Routine 
NMI-Routine der 
RS232 

Neue Zeile beginnen 
OP1-Inhalt in acht- 
stellige Dezimale um- 
wandeln und ab 
$AAO speichern 
OP1-Inhalt nach 

OP3 kopieren 

OPA angeben 

OPEN a, 
OPEN (Kassette 
OPEN (RS232) 
PFKEY 


Fill 
Goto 


Me- 


Save 


Hunt 
Load 


TIPS & TRICKS 


: PHOENIX 
: PLOT 
: PRIMM 


: PRINT 

: Programme von Kas- 
sette lesen 

: Quote Modus zurück- 
setzen 


: Quote-Flag testen 


und eventuell setzen 


: RAMTAS 

: RDTIM 

: READST 

: REPEAT 

: RESET 

: RESTOR 

: ROM-Test 

: RS232 Ausgabe 

: RS232 Zeichen aus- 


lesen 


: RS232-Empfang be- 


arbeiten 


: RS232-Senderrou- 
‚tine 
: RS232-Startbit te- 


sten 


: RUN/STOP-Abfrage 
: RVS-Modus setzen 
: RVS-Modus zurück- 


setzen 


: Record&Play-Tasten- 


druck des Recorders 
abfragen 


: Register ausgeben 
: Recordermotor aus- 


schalten 


: SAVE 
: SAVE (Datasette) 
: SAVESP 
: SCRORG 
: SECND 
: SETBNK 
: SETFLS 
: SETMSG 
: SETNAM 
: SETTMO 
:STASH 
: STAVEC 
: STOP 
: SWAPPER 
: Scroll Stop 
: Scrollen aufwärts 
: Scrollen o.k. 
: Shift-Commodore- 
Taste prüfen 
: Signalton abschalten 
: Signalton zulassen 
: Speichern des umge- 


wandelten, achtstel- 
ligen Dezimalwertes 
von OPl1 ab $=AAO 


: Spritezeiger zurück- 


setzen 


: Systemtakt auf 1 


MHZ setzen 


: TALK 
: TKSA 
: Tabelle Mnemonics 


des 8510 


: Tabelle: Adressie- 


rungsarten 


: Tabelle: Adressie- 


rungsreferenz 


: Tabelle: Fehlermel- 


dungen 


: Tabelle: RAM-Banks 


SFASO: 
SE2FS: 
$E2C7: 
SCESC: 


$BOFC: 


Tabelle: Tastaturzei- 
chensätze 
Tabelle: VDC-Initia- 
lisierung _ 


Tabelle: VIC-Initiali- 


sierung 

Tabelle: Zweierpo-- 
tenzen 
Tabellenbeginn: 


- Monitor-Befehle 


$C96C: 


SCI4F: 
5C961: 


5C980: 
$FC87: 


". 5C5D7: 
$CG55D: 
$F%33: 


$F5OF: 
$F9I08: 


$F6C7: 
$F713: 


5 F6BO: 
 $F6F9: 


SF7IA: 
SF6CB: 


$F701: 


SFCBC: 


$F709: 


$BO3A: 
SCIDF: 


$F5FB: 
$E526: 


FOUND 


Tabulatorpositionen 
ermitteln 

Tabulator anspringen 
Tabulator manipulie- 
ren 
Tabulatoren löschen 
Tastaturabfrage 
Tastaturergebnisse 
auswerten 
Tastaturmatrix prü- 
fen 

Textausgabe 
„LOADING/ 
Verifying“ 
Textausgabe „Sear- 
ching for .. | 
Textausgabe 
BOOTING | 
Textausgabe: FOR 
Textausgabe: 
Textausgabe: 1/O 
Error 
Textausgabe: 
LOADING | 
Textausgabe: OK 
Textausgabe: PRESS 
PLAY ON TAPE 
Textausgabe: 
SAVING 
Textausgabe: 

von Kassette lesen 
SEARCHING 
Textausgabe: 
Verifying 
Textmeldung Moni- 
tor ausgeben 
Textmodus setzen 
UDTIM 
UNLSN _ 


: UNTLK 
: Umrechnen der. 


ASCII-Werte in 
Bildschirmcodes 


: Umschalten zwischen 


den Zeichensätzen 


: Unterstreichen aus- 


schalten 


: Unterstreichen ein- 


schalten 


: VOR-Data-Register- 
 wertin Akkumula- 


tor lesen 


: VDC-Register initia- 
‚lisieren 

: VEKTOR 

: Verzögerungsschleife 

: WINDOW 

: Warmstart Ä 

: Wert aus OP1-OP3 in 


OP1 speichern 


: Zeichen aus Eingabe- 


puffer lesen 


: Zeichen aus IRQ- 


Buffer holen 


: Zeichen links vom 


Cursor löschen 


: Zeichen unter Cur- 


sor löschen 


: Zeichen vom Bild- 


schirm lesen 


: Zeichensatz ins VDC- 


RAM kopieren 


: Zeichensatzumschal- 


tung 


: Zeichenwiederho- 


lung 


: Zeile einfügen 
: Zeile im 80-Zei- 


chen-Modus 


: Zeile löschen 
: Zeile speziell im 40- 


Zeichen-Modus 
löschen 


: Zeile speziell im 80- 


Zeichen-Modus 
löschen 


: Zeilenvorschub 
: Zweiten Zeichensatz 


einschalten 


128er HOTLINE: 
JEDEN MITTWOCH 


Tel.: O89120 8013 


19°° 


die Potenzwerte, 


.Der 0128 und sein TEDMON 


_ EINMONITOR 
OHNE BILDSCHIRM 


Der softwaremäßig verankerte Maschinensprache- 

Monitor des C128 erlaubt Funktionen wie Floppy- 

Bedienung und Verschieben ganzer Speicherblöcke, 

recht komfortable Befehle zur Eingabe, Lesen und 

Testen von Maschinensprache, was in BASIC nur 
unter größten Mühen zu realisieren wäre. 


Ein Maschinensprache- 


Monitor verarbeitet mne- 


motechnische Ausdrücke 
und Befehle, die er be- 
reits bei der Eingabe in 
für den Computer ver- 
ständliche Codezahlen- 
Werte umwandelt. Er 
bedient sich hier der se- 
dezimalen Zahlendarstel- 
lung, auch Hex-Zahlen 


genannt. Diese Werte ge- 


hen von einer Basis 2 1 4 
(= 19) aus, sie werden 


WICHTIG: KENNTNIS 


DER SEDEZIMAL- 
‚ZAHLEN 


‚von den Ziffern 0 bis 9 
und, statt 10 bis 15, von 
‘den Buchstaben A bis F 
dargestellt. In der Praxis 
bedeutet das, daß — abge- 
sehen von der äußersten 
rechten — alle Stellen 
nach links mit 16 multi- 
pliziert werden müssen 
Nicht nur das, je weiter 
links die Zahlenwerte ste- 
hen, desto höher werden 
begin- 
‘nend bei der zweiten 
‚Stelle von rechts (= 16 
‘oder 2 t 4). Der nächste 
Wert heiß also 2 1 12. 
Die Produkte dieser 
Multiplikationen inner- 
halb einer solchen Hex- 
zahl addiert ergeben dann 
ihren Dezimal-Wert. Bei- 
spiel: Speicherstelle 
„OlFF“ hex. 1 x 256 + 
15 x 16. + 15 = 511 dez. 
Dies nur als kurzes Ab- 
schweifen in die Hex-Zah- 
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len-Welt, da Sie bei der 
Arbeit mit Maschinen- 
sprache und einem dafür 
vorgesehenen Monitor 
ständig damit konfron- 
tiert werden. Übrigens: 
Solche Sedezimalzahlen 
werden immer mit einem 
vorangestellten Dollarzei- 

chen ($) gekennzeichnet. 


MODUS AUFRUFEN 
MIT MONITOR 


In den Maschinenspra- 
che-Monitor des C128 
kommen Sie recht un- 
kompliziert: entweder 
durch Eingabe der Anwei- 
sung „MONITOR“ (mit 
„Return“ abschließen) 
oder durch Druck auf die 


.Funktionstaste 8, die die- 


se Anweisung sofort aus- _ 
führt. Jetzt ist auf Ihrem 
Bildschirm die Register- 
anzeige erschienen, die so 
aussieht: | 


MONITOR 
PC SR .AC XR YR SP 
;FB000 00 00 00 00 F8 


Von dem munter blin- 
kenden Cursor darunter 
sollten Sie sich nicht täu- 
schen lassen, das gewohn- 
te BASIC gibt’s momen- 
tan nicht mehr für Ihren 
C128. Alle derartigen Be- 
fehle oder Eingaben wür- 
de er nur mit einem ver- 
wunderten F ragezeichen 
quittieren. | 

Was nicht heißen soll, 
daß Sie ab sofort auf Ihr 
geliebtes: BASIC verzich- 


ten müssen. In dieses Be- 
'triebssystem können Sie 
jederzeit wieder zurück: 
Entweder durch die Ein- 
gabe von ,X“ (=Exit) 


oder gleichzeitiges Drük- 


‘ken. der Run/Stop- und 
Restore-Taste. Doch zu- 
rück zum C128-Monitor. 


DIE EINZELNEN 
REGISTER-WERTE 


- PC(Program Counter, 
Programm-Zähler) ist der 
Zähler, unter dem die 
Adresse des Befehles 
steht, der als nächster ab- 
gearbeitet werden soll, al- 


so in unserem Beispiel 


„B000“ (45056 dez.) 
Was aber bedeutet das 
„F“ vor der Adreßzahl? 
Im C128-Monitor kann 
(muß aber nicht) jeder 
Hexzahl fünfstellig ange- 


geben werden, dann ist 


diese fünfte links außen 
die gerade aktuelle Bank- 
Konfiguration, also hier 


„15“ (=F). 
Ohne RAM-Floppy 
oder sonstige Speicher- 


erweiterungen des C128 
gibt es sowieso nur vier 


Möglichkeiten: 
O.... Bank 0 
(RAM-Bereich) 

l..... Bank 1 

| (RAM-Bereich und 
Variablenspeicher) 

E .... Bank 14 
(Zeichensatz- ROM) 

F .... Bank 15 


(Betriebssystem-ROM). 


SR (Status Register): 
Hier wird der Inhalt der 
Statusregister des Mirko- 
 prozessors 8502 beim 
C128 angezeigt, darin 
sind praktisch alle Flags 
(Flaggen, Merker) zusam- 
mengefaßt. 


"ALLE FLAGGEN 


GEHISST? 


Ein Flag ist ein Bit, das 
einen ganz bestimmten 
Zustand des Mikroprozes- 
sors Ihres Computers an- 


zeigt. Die weitere Tätig- 


MONITOR 
PC 
; FBODOO 


. 91390 
. 01302 
. 81385 
. 81397 
. 01308 
. D138A 
. 98130D 
._81310 
. 91312 
. 01315 
. 01318 
. D131A 
. 81310 
. B131F 
. 081322 
. 081325 
. 01326 
. 01329 
. 98132C 
. 8132E 


keit dieses Chips ist im- 
mer davon abhängig, ob 
so ein Flag gesetzt (=1) 
oder ausgeschaltet ist 
(=0). Folgende Flags wer- 
den — von Fall zu Fall 
eingesetzt: 

.Carry-Flag: Findet sei- 
nen Funktionsbereich vor 
allem bei den Rechenvor- 
gängen Addition und Sub- 
traktion. Der Akkumula- 
tor verarbeitet nur acht 
Bit, also einen Höchst- 
wert von 255. Tritt nun 
bei einem solchen Re- 
chenvorgang ein Über- 
trag auf, wird das Carry- 
Flag gesetzt. 

Zero-Flag: Wird dann 
gesetzt, wenn das Ergeb- 
nis einer arithmetischen 
Operation gleich Null ist. 

Unterbrechungsverhin- 


5B 
69 
22 


FF 


83 


82 
04 
22 
88 


84 


88 


19 


BD 
BD 


44 
cc 


04 
BA 


SR AC XR YA SP 
BO DD 00 00 FB 


STA 
LDA 
BEQ 
SEI 
LDA 
STA 
LDA 
ORA 
STA 
LDA 
ORA 
STA 
LDA 
STA 
LDA 
CLI 
JMP 
JSR 
LDA 
LDX 


teten Addition oder Sub- 
traktion zum Tragen, 
wenn der zulässige Be- 


reich von —128 bis +127 
überschritten wird. Wäre 


das nicht der Fall, gäbe es 
ständig einen Overflow. 

Negativ-Flag: Wird ver- 
wendet, wenn ein Rechen- 
ergebnis ein negatives 
Vorzeichen hat. 

AC _(Accumulator): 
Der aktuelle Inhalt des 
Akkumulators wird ange- 
zeigt. Der Akku ist so 
ziemlich das wichtigste 


Register eines Prozessors, 


vor allem in bezug auf 


derungs-Flag: Ist dieses 


Flag gehißt, kann keine 
Unterbrechung durch den 


Interrupt erfolgen (nor- 


 malerweise geschieht so 


etwas sonst jede 1/60 sec). 
Dezimal-Flag: 
die Auswahl zwischen Bi- 


Trifft 


när-Arithmetik und BDC- 


Dezimal-Arithmetik. _ 
BRK-Flag: Wird ge- 


‚setzt, wenn ein Maschi- 


bei einer vorzeichenbehaf- 


nenprogramm vom Be- 
fehl „BRK“ (Break) be- 

endet wird. . 

Überlauf-Flag: Kommt. 


arithmetische Vorgänge. 
Der Wert einer Speicher- 
stelle kann direkt in den 
Akku geladen, bearbeitet 
und wieder in einer ande- 
ren abgelegt werden. 

XR und YR (X- und 
Y-Register): Zusätzliche 
Prozessorregister X und 
Y, beide dienen als Lauf- 
variable für Schleifen. 
Ebenso werden sie zur 
Indizierung von Tabellen 
verwendet. 

SP: Hiermit ist der Sta- 
pelzeiger (Stack Pointer) 


gemeint, der Bereich, der 


sich an die Zeropage ab 
Speicherstelle 256 — 511 
(50100 S01FF) an 
schließt. Dieser Speicher- 


platz wird vor allem zum. 


Zwischenspeichern von 
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gegeben 
“Ag ’ 


TIPS & TRICKSE 


Registerwerten verwen- 
det. | 

Diese Register-Anzeige 
können Sie innerhalb des 
Monitors jederzeit mit 
„R‘“ aufrufen, was ge- 
rade beim Programmie- _ 
ren in Maschinensprache 
sehr hilfreich sein kann. 
Die Inhalte der Prozessor- 


register können jederzeit 


durch einfaches Über- 
schreiben geändert wer- - 


: den. 


DIE MONITOR- 
ARBEITSBEFEHLE 


Wie es sich für einen 
ten Monitor gehört, 


stellt auch dieser recht 


komfortable Befehle zur 


‘ Verfügung, um bestimm- 
te Speicherbereiche Ihres 


Computers beschreiben 
oder programmieren zu 
können. | 

A (Assemble): Der 
wohl wichtigste Befehl 
zum Programmieren in 
Maschinensprache. Gehen 


_ wir einmal davon aus, Sie 


sollten ab Adresse 4864 
oder $ 1300 ein Maschi- 
nensprache-Programm 
eingeben (das von BASIC 
aus dann mit einem SYS- 
Befehl aufgerufen wird), 
das als ersten Schritt den 
Wert „11“ ın den Akku 
laden soll: 

A 1300 LDA#$OB 

Nach dem Drücken von 
„Return“ nimmt Ihre 
Eingabezeile jetzt folgen- 
de Form an: 

A 1300 A9OB LDA#$OB 
A 1302 (hier steht jetzt 
der Cursor.) 


„A: SAMMELT BYTE 


Daran erkennen Sie, 
daß nacn dem „Sammeln“ 
(Assemblieren) links die 
entsprechenden Byte an- 
werden, also 
(=169) und “OB” 
(=11). Das bedeutet für 
den Computer, den Wert 
“11” in den Akku zu la- 
den. In BASIC hätten wir 
das per POKE erledigen 


TIPS & TRICK S EMEEREEEEEEEEEETETEIEEESEREERETEREIEEEEG 


müssen, außerdem sind 


dort nur Dezimalzahlen 
erlaubt: 
POKE 4864, 169: POKE 
4865,11. 


Der Cursor meldet sich 
wieder mit dem “A”- 
Befehl und der Speicher- 
stelle, ab der weiter as- 
sembliert werden kann, 
demnach “1302”. 


MONITOR | | 
PC SA AC XR YA 5P 
; FBOOO DD DO 00 DD FB 


sBO100 - 
>08110 
>898120 
>0981308 
>991409 
>089158 
>80160 
>898170 
>80180 
>908198 
>OD1AD 
>8081B 


>081C8 
>88100 
>OD1EO 
>BOBAF® 
>0802008 
>80210 
>90220 
>890230 
>9002408 
>80250 
>00260 
>092708 


-D”: DER LIST-BEFEHL 
DES MONITORS 


D (Dissassemble): Die- 
ser Befehl ist vergleichbar 
mit der PEEK-Funktion 
oder „LIST“ in BASIC. 
Wenn Sıe hier 
D1300 | 
eingeben, so erscheint 
eine Bildschirmseite lang, 
das von Ihnen in diesen 
Speicherbereich mit “A” 


‘geschriebene Maschinen- 


programm (oder jeder ge- 
wünschte _Speicherbe- 
reich). Unser Beispiel 
würde dann so aussehen: 
D1300 

D1300 A9 0B LDA#JOB 


D1302 00 BRK 
D1303 FF | 222 
D1304 00 BRK usw. 


„BRK“ und ,???“ be- 


deuten nur, 


daß nichts 
mehr Vernünftiges i im fol- 
genden 
steht, er ist schlicht und 
einfach leer. Der Punkt 
“” vor den jeweiligen 
Adresen hat diesselbe 
Funktion wie “A”, Sie 


könnten also hier jede 
Befehlseingabe ändern. 


M (Memory Dump ): 


Das bedeuter soviel wie 
„Speicherauszug‘“. Wenn 
Sie 

M 1300 


eingeben, so wird ab die- 


ser Speicherstelle — wie 
an einer Kette aufgereiht 
— der Inhalt der folgen- 
den Adressen hexadezi- 
mal angezeigt. 

Vor den Hexdump-Zei- 
lenauf dem Bildschirm er- 


‚scheint dann eine Spitz- 
klammer 


nach rechts 
(ebenfalls 
Befehlszeichen). Sie gibt 
zu verstehen, daß Sie nun 
ungestraft und ohne Da- 


tenverlust diese angezeig- 
ten Byte ändern können. 


Überprüfen läßt sich das 
am besten an dem am 
rechten Rand gezeigten 
Klartext, der praktisch die 


ASCII-Code-Pendants der 


Speicherbereich - 


"ändern 


ein Monitor- 


- Adresse 


eingegebenen Zeichen, Te- 
vers dargestellt. 


H („hunt“‘, suchen): 


Immer wieder kommt es 
vor, daß Sie in einem ge- 
wissen Speicherbereich 


nach einer Byte-Folge su- 


chen wollen, um sie zu 
oder  sonst- 
wie bearbeiten zu kön- 
nen. Auch hier hilft uns 


: BEEIEFREIEISTETETEREREEEN 


: Ei RT BEAT 
RE RE RR 


2 I RR BEBR R  BOER BORE 
IERREREEREEREI 
2 EEE 
2 ee Ba 
3 TEE NE de] 
. Pen Mn LIFE „ DE nn 


KA TA HE NR HE AR HR N IR A290 


. = ARRERTEREREEN 


der Monitor mit einer 

komfortablen Befehlsein- 
abe: 

H 1300 1350 A9 


Hinter H wird die An- 


JAGT UND FINDET 


BYTE-FOLGEN: „H” 


und Endadresse 
des zu durchsuchenden 
Speicherbereichs und die 
Bytefolge (es kann natür- 
lich auch eines alleine 
sein) eingegeben. Da das 
gesuchte Byte 
Minibeispiels nur in der 
„1300“ steht, 
würde diese darunter 
auch ausgegeben werden. 
„Hunt“ kann aber noch 
mehr: Falls Sie in einer 
Tabelle nach einem be- 


‘stimmten Wort oder Text 


suchen, 


so müssen Sie 
diese 


' Byte-Folge nicht 
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UNSETES 


unbedingt hexadezimal 
vermerken, was vielleicht 
für den einen oder ande- 
ren zu umständlich wäre. 


. Trennen Sie diese Einga- 


be mit einem Hochkom- 
ma c<»ı,93 
Sie die zu suchenden 
Byte im ASCII- Format, 
etwa: 

H 1500 1600 '’BYTE 

Die folgende Anzeige in 
der nächsten Zeile gibt 
Ihnen die Adressen an, 
wo der in diesem Bereich 
Wort-String Byte zu fin- 
den ist. 


Sure nee . nn. an ann 


T („transform‘“, ver- 


schieben): Damit läßt sich 


ein genau umgrenzter 
Speicherbereich inner- 
halb des freien Speichers 
verschieben. Wenn Sie 
nun eine kleine Routine 
aus dem klassischen 
Maschinensprachebereich 
des C128 beispielsweise 
in den BASIC-Speicher 
ab $4000 (16384) able- 
gen möchten, so würde 
das etwa so aussehen: 

T 1300 1400 4000 

Sie geben damit Anfangs- 
und Endadresse des zu 


 verschiebenden Bereichs 


und die Anfangsadresse 


‚des neuen Speicherplat- 


zes, an den geschoben 
werden soll, ein. Die End- 


adresse muß nicht mit an- 


gegeben werden, die rech- 
net sich der Computer 
selbst aus. Die Original- 
routine ab 5 1300 wird 
aber nicht gelöscht und 


befindet sich ebenfalls 
noch im Speicher. Damit 
bekommt der folgende 


Befehl einen Sinn: 

C („compare‘“, verglei- 
chen): Zugegeben, so 
schön die Verschiebemög- 
lichkeit mit ‚„T‘‘ auch ist, 
eine Schwachstelle darf 
nicht verschwiegen wer- 


den: Sprungadressen wer- 


den nicht mit umgerech- 


net, außerdem kommt es 


in einem Maschinenspra- 
cheprogramm oft genug 
vor, daß Speicheradres- 
sen, die irgendwann auf- 
gerufen werden sollen, in 
ein Low- und ein High- 


ab und schreiben 


Byte zerlegt werden. Die- 
se hätten in einem neuen, 
durch die Verschiebung 
zugewiesenen Speicherbe- 
reich eine ganz andere 
Bedeutung, da sie sich 
noch immer auf Adressen 


im Originalprogramm be- 


ziehen. Verschiedene Ma- 
schinensprache-Monitore 
des C64 bieten hier eine 
komfortable Funktion, 
bei der nur die Differenz 
zwischen neuem und al- 
tem Speicherbereichsan- 
fang in die Parameter- 


VERGLEICHT 
SPEICHERINHALTE: 


[U 


Folge zu „T‘““ aufgenom- 
men werden muß, der 
Computer berechnet dann 
automatisch die neuen 
Einsprungstellen und 
paßt sie an. Das kann der 
„T“-Befehl des Monitors 
im C128 leider nicht, die 
Nachbesserung muß im- 
mer noch von Hand vor- 
genommen werden. Zur 
Vereinfachung können 
Sie den ,C“-Befehl be- 
nutzen, der beide Spei- 
cherbereiche (das Origi- 
nal und den an eine an- 


dere Stelle verschobenen) ° 


vergleicht. 
in denen 


miteinander 
Die Adressen, 


voneinander abweichende 


Speicherinhalte stehen, 
‘ werden auf dem Bild- 
schirm aufgelistet. So ha- 
ben Sie schnell herausge- 
_ funden, wo die zu ändern- 
den Byte stehen, um 
nach deren Anpassung 


auch im neuen Speicher- 


bereich das Programm 
STARTEN UND 
FÜLLEN: „G” UND „F” 


zum Laufen zu bringen. 
Da sind wir auch schon 
beim nächsten Thema: 

G („go“, Start eines 
Programmes): Der exakte 
Befehl lautet beispiels- 
weise G 1300 und ist 


eigentlich nichts anderes. 


‚als der vielleicht besser 


bekannte SYS- Befehl im 
BASIC. Es “wird zu der 


angegebenen Adresse ge- 
sprungen und ein dort 
stehendes Maschinenspra- 
cheprogramm _abgearbei- 
tet. Statt „G“ können Sie 
auch den Buchstaben „J“ 
(von „jump“, springen) 
verwenden, der Effekt ist 
derselbe. - 

F (‚„fil‘“, füllen, bei- 
schreiben): Damit läßt 
sich ein angegebener Be- 
reich mit einem bestimm- 
ten Byte beschreiben, bei- 
spielsweise eine Null, um 
einen vorher benutzten 
Speicher zu löschen. Der 
Gesamtbefehl sieht so 
aus: 

F 1300. 1400 00 | 
Natürlich kann statt „00“ 
jeder andere Byte-Wert 
verwendet werden. Ge- 
ben Sie doch nur zum 
Spaß im Monitor folgen- 
des ein: 

F 0400 07FE 2A 

und betrachten Sie sich 
den Effekt .. 


SPEICHER-, LADE- 
UND DISKETTEN- 
BEFEHLE 


Um bequemes Arbei- 
ten mit dem ‚„Monitor“ 


‚sicherzustellen, ist selbst- 


redend auch die Kommu- 


“ nikation mit Ihrer ange- 


schlossenen Floppy-Sta- 
tion vorgesehen. Es wäre 
doch ziemlich umständ- 
lich, dazu eigens wieder 
ins BASIC 7.0 zurückzu- 


schalten zu müssen. Die 


Komfortanweisung des 
BASIC 7.0 können Sie 
hier nicht verwenden, im 
Prinzip läuft es hier so 
ab, wie wir es aus der 
Zeit mit dem C64 kann- 
ten. Nehmen wir den 
SAVE-Befehl: 
S „(Prg. Name)‘ 08 1300 
1450 

„08“ bedeutet die Geräte- 


nummer des Speicherge- 


rätes, (es kann auch „09“ 
für ein zweites angeschlos- 


senes Laufwerk oder,,01“ 


für die Datasette sein). 
Die beiden Hexzahlen da- 
hinter sind bei der Einga- 
be bindend, da sie die 
Anfangs- und Endadresse 
des zu speichernden Be- 
reiches bilden. Das Pro- 
gramm wird damit abso- 


_ Iut gespeichert, das heißt, 


die Anfangsadresse wird 
auf der Diskette gleich 
mit eingetragen, um beim 
späteren Laden das Pro- 
gramm auch gleich wie- 
der an diesen Bereich 


transferieren zu können. 


Die Anweisung lautet 
kurz und bündig: 

L ‚„(Prg. Name)‘ 08 

Soll erst ab einer späteren 
Adresse innerhalb des 
festgelegten Speicherbe- 
reichs geladen werden, so 
geben Sie noch eine 
Adresse mit an, 

L „(Prg.Name)“ 08 1400 


Wie schon in BASIC — 
oft gefordert, doch nie 
praktiziert, stimmt’s? — 


läßt sich auch im Monitor 


gerade gespeichertes Pro- 
gramm (bzw. die abge- 
speicherten Bytewerte) 


„verifizieren“, also über- 
prüfen, ob sich Übertra- 


gungsfehler oder sonstige 
„Motten“ eingeschlichen 
haben. Die Anweisung i im 
Klartext: 

V „(Prg.Name‘‘) 08 


Richtiger heißt dieses 
eigenartige Zeichen ‚At 
Sign“ und signalisiert 
dem C128 im Monitor- 
Modus, daß Sie etwas mit 
der Floppy vorhaben. 
Wollen Sie nur das Direc- 
tory einer Diskette be- 
trachten, so geben Sie 
ein: | 


8,9 


mit: „“ 
dem BASIC 7.0 ‚Print 
DS$“. So bequeme An- 
weisungen wie RENAME, 
SCRATCH, HEADER 
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Die Anzeige des Floppy- 
Fehlerkanals erhalten Sie 
bekannt aus 


haben. 


TIPS & TRICKS 


können Sie hier nicht ver- 
wenden. Aber den ganzen 
Befehlsrattenschwanz zur 
Kommunikation mit ei- 
ner Diskettenstation ım 
Commöodore-BASIC kön- 
nen Sie sich trotzdem 
sparen: Nie mehr OPEN 
1,7,15 und CLOSE 1, das 


‚alles erledigt in dem Fall 


der Klammeraffe. 


VERSCHIEDENE 
SYMBOLE — 
VERSCHIEDENE 
ZAHLENSYSTEME 


Bei der Arbeit mit dem 
C128-Monitor brauchen 
Sie nicht unbedingt Hexa- 
dezimalzahlen anzuge- 
ben, die mit einem ,„$“- 
Symbol beginnen, es geht 
auch mit Dezimalzahlen. 
Sie müssen diese nur mit 
einem “ + ”-Zeichen 
(Plus) am Anfang verse- 
hen. Beispiel: Die Eingabe 
„M 1300 1350“. bewirkt 
dasselbe wie ‚,M + 4864+ 
4944“, | 

Es gibt noch zwei wei- 
tere Darstellungsarten 
von Zahlen, die oktalen 
(Symbol: &) und die bi- 
nären (Symbol: %), in 
der Regel werden diese 
aber nicht benutzt. 


WICHTIG: MASCHINEN- 
BERALUEREINDBRIS: 


Sie haben bei unserem 
Streifzug sicher gesehen, 
welch schönes Program- 
mierwerkzeug uns der 
C128 mit seinem Ted- 
mon zur Verfügung stellt, 
allerdings sind hier Kennt- 
nisse der Maschinenspra- 
che für die Mikroprozes- 
soren. 6510/8502, die 
praktisch identisch sind, 
Grundvoraussetzung. Nur 
dann können Sie diesen 
Monitor mit seinen Mög- 
lichkeiten so nutzen, daß 
Sie auch Spaß daran 
L.ch. = 


Nun 


= 


SERVICE EEE 


Jede Menge Grafik- und. „Mal”-Programme gibt's ö 


C64 GRAFIK 
AUF DEM 128? 


für den 64er, eines besser als das andere. Beim C 128 


aus. 


Problem, solche Grafik- 


Tools im C-64-Modus des. 


C 128 zu benutzen und 
damit Bilder und selbst- 


gezeichnete Grafiken zu 


erstellen, diese abzuspei- 
chern und in eigenen Pro- 
grammen zu verwenden 
(Adventures, Dokumen- 
tationen mit Bildern un- 
terlegt),, aber bislang 
schien die Nutzung dieser 
„Kunstwerke“ nur auf 
den C 64-Modus be- 
schränkt. 


BEISPIEL: HI-EDD 64 


Doch das soll’anders wer- 
. den. Nehmen wir doch 
ruhig als Beispiel ‚„Hi- 
Eddi‘, ein ausgezeichne- 
tes Grafikprogramm für 
den C 64. Es arbeitet mit 
mehreren Bildschirmberei- 
chen, die ab Adresse 8192 
($ 2000 hex.) beginnen, 
mehrere verschiedene 
Zeichenfarben sind dar- 
stellbar (wohlgemerkt, es 
‚ist ein Zeichenprogramm, 
das nur im HIRES-Modus, 
nicht aber mit der Multi- 
color-Darstellung _arbei- 
tet!). Diese farbigen Bil- 
der benützen u.a. den 
Speicherbereich ab Adres- 
se16384 (5 4000 hex.). 
Eines haben diese Gra- 


fikbilder aber mit einem 


im GC 128-Modus erzeug- 
ten gemeinsam: sie bein- 
halten als C 64-Bild bit-, 
bzw. pixelweise dieselben 
Bildschirminformationen, 
wie sie auch der GC 128 
darstellt (kein Wunder, es 
ist ja-auch derselbe Vi- 
a 

In der Normalkonfigu- 


ie es sicher kein 


map“, 


sieht das Software- Bass ca leider recht mager 


ration. liegen beim C 128 


Grafiken (egal, ob hoch- 


auflösende oder Multico- 


lor-Grafik) im Speicher- 


bereich von 7168 (8 
1C00) bis 16383 ($3FFF). 


Wenn Sie nachrechnen, 


sind das genau 9216 By- 


tes, die zur Ablage der 
einzelnen Punkte der Bit- 
map plus der dazugehöri- 
gen Farbinformation ge- 
braucht werden. 

Wie nun ein mit einem 
64er-Programm gezeich- 
netes Bild, das unter ei- 


nem File-Namen auf Dis- 


kette gespeichert ist, in 
den C 128 bringen? 


GRAFIK-BILDER 
WERDEN ABSOLUT 


GESPEICHERT UND 


GELADEN 


Das ist gar nicht so schwer, 


kennt der große Bruder 


des C64 doch solch 
starke Befehle zum Spei- 
chern und Laden von ge- 
nau begrenzten Speicher- 
bereichen wie „BSAVE“ 
und ,„BLOAD‘“. Damit 
wird Bit für Bit und Byte 
für Byte als binäre Infor- 
mation innerhalb dieses 


Bereichs fortlaufend und 


in der richtigen Reihen- 
folge auf Diskette abge- 
speichert. 

(Leider haben die Kas- 
setten-Benutzer hier das 
Nachsehen). Unsere ‚Bit- 
die Grafikland- 
karte des GC 64 oder 
C.128, ist in diesem Falle 
eben so ein Speicherbe- 
reich. Allerdings: beim 
Abspeichern - trägt 
Computer in zwei Bytes 


auf der Diskette noch das 


der 


Low- und High-Byte der 


Anfangsadresse des so ge- 
speicherten Bildes (oder 
jedes anderen Speicher- 
bereichs) auf der Diskette 


ein, um beim Wiederla- 


den mit „BLOAD“ (beim 
C 128) oder LOAD“ (Na- 
me)‘ ,8,1 
gleich den richtigen Be- 
reich Ihres Computers 
mit diesen Bytes zu bele- 
gen. Man nennt dies ‚‚ab- 
solutes Laden“. (So wer- 
den auch Maschinenpro- 
gramme, die als binäres 
File auf Diskette vorlie- 
gen, 


Da wir aber, um diese 


C 64-Grafikbilder zu la- 


den, auch ein geeignetes 
Programm brauchen und 


dies zum besseren Ver- 
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(beim CG 64) 


ABA und 
geladen!) 


c-— 54 Grafiken im 
cC a28. 
18 rem listing 1 | <oo> 
28 rem lader c 64- -grafik- <bm> 
38 rem bilder im s/w-modus <ck> 
48 rem belegte blocks auf <po> 
58 rem diskette < 33 <mj? 
68 rem commodore welt/h.b. <ak> 
78 color®,7:color4,15:color1,2 
 :colorS,2 | <fh> 
88 scnclir:input”file-name”;f1$ <mn> 
98 graphic1l,! <oc> 
188 bload(f1$),on ba <hi> 
118 graphic® <kf> 
128 scnclr: inpuk” speichern (il 
n)";a$ <dd> 
‚138 ifa$="n"thenend z <fk> 
148 ifa$="j"thengraphic!: bsave | 
(f1$), onbB, p?168t0p16383: graph 
ic®: End  <fb> 
18 rem listing 2 <op> 
28 rem verschiebt den basic- <kh> 
38 rem anfang nach $ 6498 <1j> 
48 rem und laedt programm <bg> 
58 rem laut listing 3 nach I <hg> 
68 rem commodore welt/h.b. <ak> 
78 poke45,1:poke46, 188: poke256 i 
00,8  <ho> 
88 poke241, 11: scheir: printchr$. 
( 19) ” run le main"chr$( 34 
) be 
98 poke842, 19: PERS, 13: poke2. . 
08,2:new <bäs 


ständnis ein Basic-Pro- 
gramm sein soll, gibt es 
Kompetenz- Schwierig- 

keiten mit der Stelle, ab - 


der dieses Programm im °. 
Speicher stehen soll. n- 
Der normale Basic-An- 


fang beim C 128 ist 
Adresse 7168, kommt 
aber nicht in Frage, da 
wir ja ein Grafikbild im 
hochauflösenden Modus 


laden möchten und zur 


Bildschirmdarstellung die 
„Bitmap“ des GC 128 
brauchen (von 8168— 
16383). Der C 128 hat 


dies bereits in weiser Vor- 


_ aussicht geregelt und ver- 
legt 


den Basic-Anfang 
nach 16384 ($ 4000), 
sobald er eine „GRA- 
PHIC“-Anweisung 

empfängt, beispielsweise 


18 rem 


„GRAPHIC 1,1“. Aber: 
Wir haben vorhin bereits 


besprochen, daß vor 
allem Farbgrafiken 
dieses C 64-Grafikpro- 


gramms eben genau an 


diesem Punkt beginnen, 
so daß unser dort ste- 


hendes Basic-Programm 
nur unliebsam stören 
würde. | 
BASIC-ANFANG 
VERLEGEN 


‘Da bleibt uns gar nichts 
' anders übrig, als den Ba- 
sic-Speicheranfang des C 
128 nach oben zu ver- 


listing 3: | <pa> 
28 rem lader c 64- en eeike <ff> 
38 rem bilder mit mehr als <em> 
48 rem 33 blocks auf diskette <eo> 
58 rem dieses programm bitte <dn> 
68 rem unter dem namen ’main’ <mb> 
78 rem auf diskette abspeicher 
n 2 ee Ä <hf> 
‚88 rem commodore welt/h.b. .. <op> 
98 color®,7:color4,1S:colori,2 
:color5,2 <b j> 
188 seneir: input"file- name”;fl 
$ | <go> 
118 TU <cd> 
128 bload( fl1$),on b® <ji> 
. 138 graphicclr:graphic1: bload( | 
 f1$) ,‚onb@:graphic® <kn> 
148 scnclr:input” epeiahern 13/ 
n)”";a$ <fa> 
158 ifa$="n"thenend <kd> 
168 ifa$="j"thengraphici:bsave 
(f1$) ,onb® ‚P7168t0p16383: BrSpN | | 
icß:end | <im> 
18 rem laderoutine fuer <j1l> 
28 rem c 128-grafikbilder <af> 
38 rem commodore welt/h.b. <ho> 
48 color®,?: color4, 15: color!, ‚2 
:colorS5,2 <nk> 
68 ifpeek( 4864) = Athangraphicik 
poke288,8:wait288,1:graphic®:i 
 nput”anderes bild (8=>ja 1=nein 
)”";a:poke4864,a:graphicß:end <jj> 
68 scnclir:input”file-name”;f1$ <mm> 
78 graphici,! <jn> 
88 bload(f1$),on bB:poke4864,1 <ba> 
98 poke288,®: wait298, TV: graphic ee 
B:end <hd> 


schieben. Wohin und um 
wieviele Speicherstellen?. 
Genau um die vorhin be- 
schriebene Anzahl von. 


9216 Bytes. Rechnen wir 
nach: 16384 + 9216 = 
25600. (in hexadezimaler 


Darstellung: $ 6400). Un- 


sere Anweisung lautet al- 
so: POKE 45,1 : POKE 
46,100: POKE 25600, 0: 
NEW 


beherbergt das Low-Byte 
(niederwertige Byte) der 
neuen Speicheradresse, 
die Adresse 46 das High- 


Byte (höherwertige Byte) 


in Dezimal-Darstellung. 
Die erste Speicherstelle 


ım Direktmodus 


Die Speicherstelle 45 sogenannten 


des neuen Beginns des 
 Basic-Speichers 


(25600) 
muß ‚0‘ betragen, daher 
wird dieser Wert in diese 
Zelle GePOKEt. Das fol- 


gende „NEW“ initialisiert 


die neuen Werte. 


Der Beginn der C 128- 


Bitmap samt  Farbinfor- 
mationen ist nun nicht 
mehr 7168, sondern 
16384. So läßt sich nun 
das „Hi-Eddi“-Original-C 
64-Bild ohne weiteres mit 
„BLOAD“ in den C 128 


laden, allerdings erst ein- 
‚ mal mit den gültigen Far- 


ben. Nach Beendigung 
des Vorgangs müssen. Sie 
mit der Anweisung 
„GRAPHIC CLR“ dann 


das Bild erneut laden, 


diesmal geschieht das mit 
den Bytes der gültigen 
Zeichenfarbe (COLOR 2). 

So erhält man durch 
„doppeltes“ 
C 64-Originalbildes eine 
naturgetreue 128erKopie, 
die Sie jetzt mit den ent- 
sprechenden Anweisun- 
gen als C 128-Grafik ab- 
speichern sollten: 
BSAVE“128er-Grafik“, 
ON BO, P 7168 To P 
16383 

Einer weiteren Verwen- 
dung in eigenen 128er- 
Programmen steht damit 
nichts mehr im Wege. 

Diese eben erwähnten 


Befehle und Anweisun- 


gen können Sie natürlich 
einge- 
ben, allerdings geht’s be- 
quemer mit unseren 
Listings für Ihren C 128. 


ERLÄUTERUNG ZU 
DEN LISTINGS 


Listing 1 ermöglicht Ih- 
nen die Übernahme von 
„Schwarz- 
Weiß“-Bildern solcher 
Grafikprogramme des C 
64, hier ist es nicht nö- 
tig, den Basic-Anfang hö- 


her als ab Adresse 16384 


zu setzen. Listing 2 und 3 


sollten Sie für das Laden 
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Laden des 


fehlenden Grafik- 
Malprogramme für den C 


ar, 


von Farbbildern’“ einset- 
zen, (es funktioniert auch 
bei Multicolor-Bildern, 
getestet haben wir dies 
beim soeben erschiene- . 
nen „Advanced OCP Art 
Studio“ für den C 64!). 
Es wird zuerst der Basic- 
Anfang nach .$ 6400 
(25600) verlegt und das 
eigentliche Ladepro- 
gramm der Grafiken 
automatisch nachgeladen. 
Nach Angabe eines Ihnen 
passenden File-Namens 
können Sie dann dieses 
Bild als C 128-Grafik auf 
Diskette abspeichern las- 
sen. 

Listing 4 zu guter Letzt 
bietet Ihnen die Möglich- 
keit, solche in den C 128 
konvertierten Bilder 
(oder andere, reine C 128- 


Grafiken) wieder zu la- 


den und sich anzusehen. 


Sollten Sie mit der Farb- 


zusammenstellung nicht 
einverstanden sein, so än- 
dern Sie bitte einfach die 
Werte der betreffenden 
COLOR-Anweisungen, 

Wir‘ hoffen, Ihnen mit 
diesem Beitrag als C 128- 
Benutzer eine Möglich- 
keit anhand gegeben zu 
haben, das Manko der 


KEINE GARANTIE! 


und 


128 (wir kennen bislang 
nur eines dafür, (Star- 
painter.128) auszuglei- 
chen. Nach dem Motto, 


„Mit dem C 64 malen, im 


C 128 verwenden!“ Aller- 
dings können wir keine 
Garantie übernehmen, ob 
es nach dieser Methode 
bei anderen Grafikpro- 
grammen für den C 64 
außer den beiden ‚Hi- 
Eddi“-Versionen und 
„Advanced OCP Art Stu- 
dio“ klappt, auch hier 
glt der ewig junge: 
Grundsatz:Probieren :;— 
und dann nochmals 'Pro- 


bieren! 
( hb) | 


SERVICE 


FRACTALS: = 


MATHEMATISCHE 
GRAFIK AUF 


DEM MONITOR 


Wir kennen alle die bekannten geometrischen Formen | 


wie Linie, Kreis, Rechteck, Kegel, Zylinder usw. usw. 
Alle diese Gebilde können mit mathematischen und 
physikalischen Formeln nach ‚Größe, nrang) und 


| Inhalt berechnet werden. 


Wie sieht’s aber in der 
‚, Natur wirklich aus? Nach‘ 


welcher Formel wollen 
Sie die Oberfläche eines 
Eichenblatts, den Um- 
fang eines Berges oder 
den Rauminhalt eines 


Felsbrockens berechnen? : 


Darüber streiten sich die 
Wissenschaftler, wir wol- 
len uns da nicht einmi- 
schen, sondern 
Nutzen für uns und den 
_ Computer daraus ziehen. 
Die Erkenntnisse. gipfeln 
darın, daß diesen erwähn- 
ten natürlichen Körpern 
oder Formen eine ‚„‚ge- 
.  brochene‘““ Dimension zu- 
_ geordnet wird, die sich in 


Zwischenbereichen zu 


den starr festgelegten, 
bislang bekannten mathe- 
matischen Gesetzen be- 
wegt. Lassen Sie doch Ih- 
ren C 128 nach diesen 
neuen Erkenntnissen ein 
Bild auf dem Computer 
entwerfen, am besten im 
Multicolor-Modus! 


BERECHNETE 

„UNORDNUNG” -. 

 RECHEN-MARATHON 
FÜR DEN COMPUTER! 


_ Das folgende Listing defi- 


niert in Zeile 100 die 


Farbgebung, die Sie aber 


nach Ihrem persönlichen 
Geschmack anpassen 
können. Nach der Festle- 

gung der Variablen wird 
in Zeile 150 die An- 


ordnung der verschiede- 
nen 


Zeichenfarb-Modi 


einen 


denfarbige, 


_ kunde 
so benötigt der C 128 


eingelesen. 
340). Sie können die An- 
ordnung beliebig verän- 
dern, nur nicht die Zah- 


‘len, die i immer „1,2 oder. 


3° lauten müssen. Sie ge- 
ben nämlich an, in wel- 
chen Zeichenfarb-Modus 


dann ein Punkt auf dem 
Bildschirm gesetzt wird, 
wenn gewisse Bedingun- 


gen erfüllt sind. Dies 
hängt im wesentlichen 
von den Variablen Z 


(Zeile 130) und E (Zeile 


210) ab. Für das konti- 
nuierliche Setzen der Zei- 


chenpunkte sind die Zei- 
len 220, 230 und natür- 
lich Zeile 250 zuständig. 
Eine Warnung gleich vor- 
neweg: Für dieses Grafik- 
bild muß der C 123 
32000, zum Teil verschie- 
Bildpunkte 
(Pixels) auf der Multico- 
lor-Bitmap setzen. Gehen 
wir davon aus, daß er für 
jeden Punkt nur eine 'Se- 
brauchen würde, 


zum Zeichnen dieses 
„Fractals“ schon 9 Stun- 
den! (Da Sie ja nicht un- 
bedingt dabei sein müssen, 
können Sie das ruhigen 


Gewissens den Computer 
während der Nacht erle- 


digen lassen!): Beschleu- 
nigen läßt sich das Ganze 
aber mit zwei in das 
Programm einzufügenden 


Zeilen: 


90 FAST. 
265 SLOW 
Mit dem et 


fehl veranlassen Sie Ihren 


(DATA-Zeile 


268 


358 datal 3,2, 
2, 


rem 


18 

28 rem (ec) commodore welt == 
30 rem =====-=-=-=--=-=- 22.2 =2munuen 

48 rem by h.b. Ä ” == 

5s8 rem- | ei et 
68 rem version 7.8 48z/ascii-- 
78 PUNe URE WERDET SINE = 
88 rem | | m 
98 rem >>> 7 57 5 7 a a om mm 


118 color®,1:color4,1: color! ‚S 
:color2,3: color3, 11 

128 Bencirt graphics, 4 = 
138 a= =20:b-23:d=1:dime( 0) ‚x(b) 
‚y(b) Zr | 
148 x1=d: yi- =d:x?2= =-d:y2=-d:x3=8 
.2:y3=8.5:z=1008 

158 


199 


168 Foristitoe: readc(i):next. 

178 fori=-8t0199: for j-8t0159 

188 x(8) =x2+j#Fx:ylB8)=y2+i*fy: 
v-8 2 
198 
2008 
218 
228 
238 
248 
258 


x v+1)=x(v) "2-y[v) "2-x3 
y(Cv+1)= »L[uv)#2yl v)-y3 
v-ev+1 
e=x(v) "2+y(v) “2 
ifv=a+1then278 
ife>zthen268 

goto198 

drawc(v),j,i 

next j,i 


278 | 
color4, 15: poke288, 0: wait2® 


288 
8,1 | | 
298 graphic®:scnclir:print”flop 
py eingeschaltet (j/n) 7?" 

388 getkeyt$:ift$="n"then298 


318 ift$="j"then338 


328  g0t0308 

338 graphic3:bsave”fractal”,on 
DOLD ISDN ISO 

348 end. 


1,3 
2,1,3,2,1,3 153 


IS 


18 rem fractal =-========-=- 

28 rem (p) commodore welt =-- 
38 rem -———— nun nnnnnnunnnnmnm 
48 rem (c) hermann wellessen-- 
58. rem . (nach einem > 
68 rem amiga-programm) - == 
78 rem version 7.8. 48z/ascii= 
88 rem 128 pc+tdatas./floppy == 
98 rem =========-== === == 22200 


188 color®ß, 7: color4, 7:color1,3 


110 | | | .r 


fFx=(x1- x2) /159: Fy-tyi-y2)/ 


2,1,93,2>1,3; . 


-=-128- 


C 128, doppelt so schnell 


wie bisher: zu arbeiten, 


die normale Taktfrequenz 


von 1 Hz wird auf 2 Hz 


erhöht. Einen Nachteil 
müssen Sie allerdings in 


der Zeit, 


:color2,1:color3,2 <lc> 
118 senclr: graphica, ı <hp> 
128 xm=159:ym=95 <jh> 
138 readxc <ct> 
148 readyc <hi> 
158 readt <1n> 
168 reads <oe> 
178 readxl <go> 
188 readyo . <md> 
198 readyu <bh> 
288 readmk <ef> 
218 ifmk=1thenrestore <jk> 
228 dx=(xr-x1)/xm <ig> 
238 dy={ yu- yo)/ym <km> 
248 forn=Btoym <hl> 
258 yi=yo+n*#dy <ge> 
268 fForm=-Btoxm <kp> 
278 x=x1+m#dx <id> 
288 y=-y1 | <ak> 
298 k=8 <nl> 
308 x2=x#x <bn> 
318 y2a=yfy <lp> 
328 _y-2#x*y-yc <fo> 
338 x=x2-y2-xc <deg> 
348 k-k+1 <ka> 
358 if(k<t) and( x2+y2<s) then308 <kd> 
368 u=m+18-n/2: ifu<@dthenu=® <ni> 
378 v=n+8B8:ifv<@thenv=8 <am?> 
388 vi=v- I#Ck- 1): ifvi<dthenvi= 
8 2 <hp> 
398 draw3,u,vtou,vi1 | <in> 
488 draw2,u+2,vtou+r2,vi1 <ob> 
418 drawi,u,vitou+t2,vi <ik> 
428 nextm:nextn <hp> 
438 z=B <hk> 
448 gett$:z=z+1 <fp> 
458 ifz=18then11B8. <gb> 
468 ift$<>""then 118 <nf> 
478 goto448 | <ck> 
488 data .82,-.5,38,38,-1.1,.3 | 
3,-.72,.77,8 <nk> 
498 data.77,.6,22,4808,-1.4,1.4, 
-, 9.12, | | <pc> 
588 datai.2,-.4,38,68,-1.15,1. 
26,.47,.7,8 | <cn> 
518 data1,.4,25,68,-.4,.26,-.4 | 
7,59, 1%) '<]j]o> 
528 data1,.5,25, 60, =,27,:16,*. 
37,.84,08 | | “ <ej> 
538 ea 
951 5 <pn> 


Kauf nehmen: Der VIC- 
II-Chip kann dieser Ge- 
schwindigkeit nicht fol- 
gen. und wird während 
in der der C 
128 im FAST-Modus 


läuft, 


abgeschaltet. So 
können Sie dem Aufbau 
der. ' „Fractal-Grafik‘“ 


nicht zusehen, die Aus- 


führungszeit wird aber 


auf gut die Hälfte ver- 
kürzt. Sind alle erforder- 


lichen. Grafikpunkte ge- 
setzt, so ‘wird in. Zeile 
265 mit „SLOW“ wieder 
auf die sichtbare 40-Zei- 
chendarstellung zurückge- 
schaltet. 


Der C 128 wartet dann 
mit der fertigen Grafik 
auf Sie, die Sie per Ta- 


| stendruck, nach der vor- 


herigen Sicherheitsabfra- 
ge ob die Floppy einge- 


schaltet ist, auf Diskette 


abspeichern können. 
'Varlieren Sie ruhig mit 
diesem Beispielprogramm, 
ändern Sie verschiedene 
Parameter (das geht ganz 
einfach, da diese in Form 
von numerischen 'Variab- 
len in den Zeilen 120 
und 130 abgelegt sind 


‘und sich somit automa- 


tisch dem Programm an- 
passen). Lediglich beim 


a | 111 | 


‚geben 


en Erzeugung 


SERVICE 


Ändern des Wertes der 
Variablen „A“ müssen Sie 
darauf achten, daß auch 
mindestens soviele DATA- 
Werte in Zeile 340 ange- 
sind. Außerdem 
sollten Sie vör jeder neu- 
eines 
„Fractals“ den. File-Na- 
men in Zeile 330 umbe- 
nennen, z.B. durch An- 


hängen einer Zahl o.ä. 
Falls Sie einmal Pech 


BESDILONSSS: 


ge 


ZERRLRRRIRER 
PLLLLIBOPLLLOEN 
VELLLELCELE 


2122200. 


ee! 


Pro- 


und das 
gramm, nachdem der GC 
128 ca. 9 Stunden an der 
Grafik gearbeitet hat, 
geht durch irgendwelche 
Fehlbedienungen der Ta- 


haben, 


statur (oder der STOP/ 
RESTORE-Taste) in den 
Direktmodus, so ist Ihr 
Bild noch lange nicht ver- 


loren. 


Geben Sie ganz einfach 
die Listing-Zeile 320 (oh- 
ne Zeilennummer!) im 
Direktmodus ein, dann 
wird das fertige Grafik- 
bild ebenso auf Diskette 
gespeichert (es belegt ge- 
nau 37 Blöcke). (hb) 


x . x 
s . Fass 1 " J j 
UWE er 5 
. . \ 


Dieses Spiel für den 128PC ist nur im 80-Zeichen- 
Modus lauffähig. Es ist ausschließlich für zwei 
Personen gedacht (von wegen Vereinsamung am Com- ' 
puter!). Obwohl die zu gewinnenden Chips 
wie Spielkarten aussehen, darf dieses Spiel nicht 
mit dem Glückspiel Poker verwechselt werden, damit 
ur hat es gar nichts zu tun. 


Ihr Ziel sollte sein, so schnell wie möglich zehn Chips in 
Ihren Besitz zu bekommen. | 
In jeder Runde erhalten Sie einen Spielkartenwert, der 
“in Ihrem Feld nach dem Würfeln ausgezeigt wird. 
Haben Sie genügend Kartenwerte beisammen, können 
. Sie mit dem Kauf der entsprechenden Chips beginnen. 
Diese werden auf der rechten Seite des Spielfeldes ge- 
zeigt. Ä 


Wenn jedes Symbol mindestens einmal in der für Sie zu- 
ständigen-Spielspalte steht, kann gekauft werden, an- 
'sonsten meldet der Computer: Zu wenig Karten. Dabei 
Haben Sie die Auswahl zwischen fünf Kombinations- 
möglichkeiten. 

Es kann also sein, daß die Wahl der Kombination 1 kei- 
nen Erfolg bringt, wohl aber die Reihung 3. Aufmerk- 
sames Beobachten des Bildschirms ist schon nötig. 
Der Name des Spielers, der gerade an der Reihe ist, 
wird jeweils revers über dem Spielfeld angezeigt. Die 
Zahl dahinter gibt an, wieviele Chips Sie bereits be- 
sitzen. 


a ———— nn ErnnasvEnEBGBEEEEEnEEREER en 


BEDIENUNGSANLEITUNG — 


Nachdem Sie das Programm gestartet haben, müssen 
die Namen der beiden Spieler eingegeben werden. Auf 
Wunsch können Sie sich auch die Spielregeln noch ein- 
malansehen. | 

Dann wird das Spielfeld aufgebaut, auf der rechten Seite - 
erscheint die Anordnung der Chips (insgesamt 4x 5), 
die Sie ‚„‚kaufen‘‘ können. Allerdings erst dann, wenn Sie 
Sie im Besitz der entsprechenden Symbole sind. Das 


Bitte lesen Sie weiter auf Seite 118 


112 


a ———————LL———— RENTE 


IB rem =mmnnnunnnnnnnnnnnnnnn 128 
28 rem (p) commodore welt — == 
38 rem samucszmmusczuususmszzanemumm 
48 rem (c) by | j == 
58 rem wolfgang werner = 
68 rem | er 


70 rem version 7.8 88z./ascii== 
88 rem pe-128 floppy/datasette == 


98 rem SEe=szsremezzmzemszszemcemummme= 


95 gosub 68888 


1008 vs-1D 

118 fast 

128 scnclr 

130 print" PPPPP 

u U k k eeeee Trrrr 

148 print" . .-D p- 

u ukk oe r r 

150 print" Fu PP 
u u kk e r R- 

168 print" PPPPP 

u U kk eeee TTrrr 

178 print” p 

u u kk e r r 

180 print" | p 

u u k k e re T 

198 print" | p 

UUU k k eeeee r r 
‚288 print" 

218 print” 

228 print" 

238 print" 
248 print" ein spiel 


fuer den commodore pc 128 


258 print" 


268 print" 
en ° von 


geschrieb 
wolfgang werner 


278 print" E 
im haferfeld 6 


<ob> 
<hf> 


<pp> 
<mg? 


"<nd> 


<gi> 
<ho> 
<km> 


<jp> 
<nj> 
<nk> 
<ni> 


<fm> 


<ce> 


<ad> 
<pc> 
<gd> 
au 


<ml> 


<ao> 


<fp> 


<kp> 


<pp> 


<kl> 


<ka> 


<enc> 


458 char,8,16," 


- annt ? 


288 print" *"rn$"(c) 
1987" rf$" 
298 print" "rn$"(p) 


1987" rf$" 4708 kamen 

388 print" 

310. char,0,23 "nur 

i t a Ss t Brennen 

328 getw$ 

338 sleep 1 

348 ifw$<>""then a00 

350: :char 0,23. "2.2 a 
t a ) Gi Kanaren 

ARTEN Fa 

368 getw$ 

378 sleep 1 


388 ifw$<>""then 408 
398 goto 310 
408 forx=1B8t023 


418 char,d,x," 


428 next | 
438 char,8,12,"gespielt wird diese 
s spiel mit 2 personen. " 
A448 char,8,14,"bitte ‘gebt nun die 
namen ein | 
spieler 1 
i „nputnast.l) 
468 char,®d, 16, "spieler 2: 
":inputna$( 2) 


ars na$( 1) =left$Cnagl 1) +" 


",ı18): 
4808 na$( 2) =1left$(na$(2) +" 
 ",10) 
498 char,8,21,"sind die regeln bek 
® / n)" | 
508 getkeyw$ 
518 ifw$="n"thengosub271® 


528 : | 
538 a$l 1) =rn$+"Z .Z"+c4$+left$(ql 
$,5)+" Z "+c4$+left$lql$,5)+"Z. 
Z"+rf$ . 
548 a$(2)=rn$+"S 5"+c4$+left$lgl 
$,5)+" 5 "+c4$+tleft$(q1l$,5)+"5 
S"+rf$ 


550 a$l3)"-rn$+"A A”+cA$+left$lql 


$,5)+" A "+c4$+left$(lql$,5)+"A 
A"ırf$ Ä e 

560 a$( A) =rn$+"X X"+c4$+left$lql 
$,5)+" X "+c4$+left$(ql$,5)+"xX 
X"+rf$ | 


578 


<bp> 


<ig> 
<na> 


<de> 


588 he(1)-® 

598 pil1)-D 

608 kr(1)-® 

618 scnclr 

628 char,8,08 ‚na$(ı), dır, © 

638 char,®, 1 ,zf$+zuß+zuß+zuS+zhötz 
ustzu$+zuß+zhötzußtzuß+tzuß+zhßtzuß 
+zv$+zv$+rzd$ 

648 forc=2to2B: char, Ö ‚c,"B"+s2$+s2 
$+529+"B"+s2$+52$+52$+"B"+s2$+52$+ 
s2$+"B"+s2$+s2$+82$+"B":next 

658 char,®,21,zc$+zv$+zv$+zuV$+rzg$+ 
zußtzußtzußtzaßtzußtzußtzußtzghtze 
$+zvV$+zu$+zs$ 

668 char,28,8,na$(2) 

678 char,20,1,zf$+zu$+zu$+zv$+zh$+ 
zu$+zuß+zuß+zhßtzußtzußtzuS+zhötzv 
$+zvV$+zvV$+zd$ 


_ <bd> 


<ib> 


<go> 


<la> 
<pf> 


<ia> 


<fp> 


sen? 
<nh> 


<md> 


680 forc=2t028:char,2P, 0 ,"B"+s2$+5 


2$+52$+"B"+52$+828+52$+"B"+s2$+528 
+s52$+"B"+s2h+s2h+s2$+"B"inent 
698 char, 20,21, zc$+zu$+zv$+zv$+zg$ 
Hzuß+tzuß+zuS+zgßtzußtzußtzuSß+zgßtZ 
 v$+zvV$+tzV$+zs$ 

788 if w$="w "thengosub3270 

718 rem festlegung der ENZDS 

728 gosub2128 

7308 char,®,8,na$( 1), 1 

748 char ,20,8,na$(2) 

758 char,8,23,"zum wuerfeln taste 
druecken":getkeyw$ Ä 
768 char,0,23," 


770 gosub2850 

788 sila)> sila)+t: ifsi(a)>18thensi 
(a)=18 

798 BODEN 

808 : 

810 : 

828 

830 char: 0, 23," 


848 char, d ‚22,"wollen sie einen ch 
i p ? e Li) 

850 char ,8,23,"(1 - 5 ) oder (e) f 
uer keinen" 

868 getkeyw$ 

878 char,8,22," 


888 char,8,23," 


898 ifw$="Q"then 1320 
988 ifw$="1"then96Q 

918 ifw$="2"then101® 
928 ifw$="3"then 1960 
938 ifw$="4"then1110 
948 ifw$="S"thent160 
950 Bad: 860 


zak> 


<dg> 


<ad> 
<cf> 


_ <an> 
<no? _ 


<mn?> 


<fl> 


<eb> 


ger 


<jg> 
<pm?> 
<ia> 


<je> 


<ki> 


<jn> 


<na> 


<ne> 
<1lb> 


<ce> 


<da> 
<eä> 
<hj> 
<pc?> 


<jm> 


<kp> 
<fi> 


<gb> 


960 ifsit 1)<bE1)ors1l2) <bL2)ors1(3 
)<b(3)ors1(4)<b(4)thenchar 8,23," 


u wenig karten - taste" 
har,d,23," 

" :g0t0840 | 
978 fForc=1to4: e1le)=s1le) -b(c) 
988 next 
998 si=s1+1 
1888 char, 14, ®: printusing"#ff";e 
goto1210 | 
1818 iFs1l1)<el 1)ors1(2)<cl2)orsit 
3) <c( 3)ors1(4)<c(4)thenchar,8,23," 
zu wenig karten - taste 
char,8,23," 

" :g0t0848 h 
1820 forc=1t04: si(c)=si(c) -c(c) 
10838 next 
10848 si=s1+1 
1858 char, 14,0: EEE TERN 
goto1218 


3) <d(3)ors1(4)<d(4)thenchar,8,23," 
zu wenig karten - taste”: getkeywg: 
char,8,23,” 
" .g0t0848 

1078 forc=1t04:s1lc)=silc)-dle). 
1080 next 

10898 s1=s1+1 | 
1188 char, 14,8: printusing"###”;s : 
goto1218 

1110 ifs1il1)<el 1)orsi(2)<e(2)orsil 
3) <e(3)ors1(4)<e(4)thenchar,d, 23," 
zu wenig karten - taste” ‚getkeyu$: 
char,8,23," | 
" .20t0848 

1128 forc=1t04:s1i(c)= s1te) -e(c) 
1138 next 

1148 si=s1+1 

1158 char, 14,0: printusing"###";s 
goto121B 

1168 ifs1C 1) <FENors1l2) <Fl2)orsit 
3) <f(3)ors1(4)<f(4)thenchar,0,23," 
zu wenig karten - taste":getkeyu$: 
char; 0,23," 

| ".gotoB40- | 

1198 forc=1to4: si(c)=- s1(o) -fle) 
1188 next 

1198 si=s1+1 

1280 char, 14,20: printusing"#AH";st: 
goto1218 | 

1218 gosub2120 

1220 :gosub3270 

1230 : 

1240 : 

1250 : 

12608 : 

1270 : 

1280 : 


:getkeyw$:c 


"getkeynß: 


<kl> 
<ff>. 


"<db> 
<ke> 


aaa 


<dk> 
<ih> 


<jg> 


<od> 


<dk> 


1068 ifsil1)<dlNorsil2)<dl2Jorsil 


<hj> 
<id> 
<pk> 
<bk> 


<fp> 


<jp> | 


<ek> 


<fo> 
m | 


<pd> 


kl>. 


<lp> 
<md> 


 <fp> 


<ki> 
<il> 


<dp> 


<np> 
<pd> 
<ah> 
<bl> 
<cp? 
<ee> 


1350 char,®, 23, 


kr: | ö 

1388: ifsl>=vsthena11d 

1310 goto AO —°— 

1328 s-int(rnd( 08341): ifo-2then13 


970 


1338 beintÜrndl8)*441)- | ae 
1349 vt=si(b): si(b)=s2(b): s2(b)=vt 
"schikane : vertaus 
chung” :sleepi | | 
1368 gosub2478. 
1378 char ,8,8,na$l 1) 
1380 char, 20, B, na$(2), 1 
1398 char,8,23," 


1400 char,8,23,"zum wuerfeln taste | 


druscken" :getkeyw$ 
ua Ener, 0, 23," 


1428 gosub2050 

1430 s2(8)=s2(a)+1: ifs2(a)>18thens 
elal-1B 

1440 ifs2(1)>@thenforo-1tos2( 1): ch 
ar,22,c+2,"Z":next 

1450 ifs2(2) >@thenforc=1t0s2(2): ch 
ar,26, c+2,"5":next 

1468 ifs2(3) >Othenforc=1t0s2(3): ch 
ar,30,c+2,"A":next | 


1470 ifs2(4) >@thenforo-1t0s2(4): ch 


ar,34,c+2,"X":next 
1480 char, v, 23, es 


1498 char, d, 22, "wollen sie einen c 
hip ? 
1590 
fuer 
1518 
1520 


char ,®,23, A -5 ) oder (8) 
keinen” | 

getkeyw$ 

char,®, 22," 

1530 char, ö, ‚23, ® 
. 1548 
1558 
1568 
1578 
1588 
1598 


1Fw8="Q"then1978 
ifw$="1"then1618 
ifw$="2"then1660 
ifw$="3"then1710 
ifw$="4"then176® 
ifw$="5"then1810 
1608 goto 1510 
1610 ifs2l 1)<bE 1)ors2( 2) <b( 2) ors2( 
3) <b(3)ors2(4)<b(4)thenchar, 8,23," 
zu wenig karten - taste” :getkeyu$: 
char, 0,23," | 

":90t01498 
1620 forc=1toA: s2(c)=s2(c) -b( c) 
1638 next 
1648 s2=s2+1 
1658 char, 34,0: printusing"#f##";s2: 
g0oto1868 | 
1668 i#s2[ 1) <cl 1) ors2(2) <c( 2) ors2l 


1728 


3) <c(3)ors2(4)<c(4)thenchar, 8,23," 


zu wenig karten - taste” RRROR 
char, ‚d, 23: 

"90101490 | 
1678 forc=1t04: 2 e)=s2lc) ee) 


1688 next 


. 1698 s2=s2+1 


1788 char,34,®8: printusing"#44";8 


'goto1868 


17108 ifs2(1)<dl 1) ors2(2) <d( 2)ors2L 
3) <d( 3)ors2(4)<d(4)thenchar,®,23, 
zu wenig karten - taste" igetkeyud; 
nah, 8,23, 

":goto1498 | 

forc=1t04: s2(c}=s2(c) -d( cc) 
1738 next 

1740 s2=s2+1 

1758 char, 34,0: printusing"#4#"js2: 
goto1868 s 

1768 1f82( 1) <et 1ors2( 2) <e(2)ors2t 
3} <e(3)ors2(4)<e(4)thenchar,B,23," 
zu wenig karten - taste":getkeyu$: 


 char,8,23,” 


:goto1490 
1778 forc=1t04: s2(c)-s2(c) -e(c) 
1788 next - 
1798 s2=s2+1 
18088 char, 34,8:printusing"###";s2 


g0t01218 


1818 ifs2( 1)<FL1)ors2(2)<f(2)ors2( 
3) <f(3)ors2(4)<f(4)thenchar, 8,23, 
zu wenig karten - taste" :getkeyu: 
char,8,23," 

Er .goto1498 


4820 forc=1to4: s2(c)=s2(6) -f( c) 


115 


1838 next 

1840 s2=s2+1 

1858 char, 34,0: printusing"###";s2 
goto186® 

1860 gosub2128 


1878 a: 
1888 


1898 : 


1980 : 
19108 : 


1928 : 

19308 : 

1940 

19508 ifs2>=vsthen311B 

1968 goto 1498 

1970 arint(rndl 0) #341): ifa=2then 2 
028. | 

1988 beintErnd( 8) #4+1) | 

1998 vt=s1(b): si(b)=s2(b) :s2(b)=vt 
20088 char,B,23, seh Kane : vertaus 
chung" :sleep1 

2818 gosub24708 

2828 char,8,23," 


<ei> 


<mn> 


<kp> 


ER: 


<jia> 


<ic> 


<ji> 
<bd> 
<gp> 


<bn> 


<pk> 
<kl> 
<hh> 
<bp> 


<e3a> 


<n]> 
<mo>. 
<nm> 
<1j> 


nass 
<bi> 


<hc> 
<pi> 
<am?> 
<ca> 
<de> 
<ej> 
<fn> 


_<hb> 


<ij> 
<id> 


<af> 


<n1> 
<nk> 


<ba> 
<af> 


2030 


: 2288 
2290 
. 2308 
o4 

2318 


g0t0730 


2848 end 
2058 forx=1t010 | 
2068 a= int([rnd( 0) #441) 
2078 a$-a$la) 
2088 fory=1to25B:next 
2098 char, 56,21, ‚a 
2188 next 
2118 return i | 
2128 forc= 1t04: bLe) =0: next: force=1t 
og 
..2130 a-int(rnd(@) #441): b$(c)-a$(e) 
:bla)=b(a) +1 Ä 
2148 next:a=l 
2150 forc-56t078step6 
2160 char,c,1 ‚b$(la) :a=atrl 
2178 next 
2188 foro=1to4:clc)-B:next:fore-it 
04 
2198 o-int(rnd(B) #441): oe 
:cla)=c(a)+1 
2288 next:a=! . | 
2210 Forc=-56t078step6 
2228 char,c,5,c$(a) :a-a+ti 
2238 next 
2248 forc=1t04: dic) =B: next: Förceie 
2250 asint( rnd( 8) #4+1): d$le) -a$la) 
:d(a)=d(a) +1 
2268 next:a=1 
2270 forc= =56t078step6 


char,c,9,d$(a) :a=a+] 
next | 
BOrSSLERI SE LEI URNESE OL Ent 


arint(rnd(B) #441): e$(o)-a8(e) 


:e(a)=e(la)+1 


2328 
2338 
2348 
2350 
2360 
o4 
2375 


next:a=] 

forc=-56t078step6. 
char,c,13,e$la): a= =at] 

next 

forc=1to4: Flo)-B: nt forc=it 


a= inttenat #441): #8to) -a$le). 


:fla)=fla) +1 


2398 


2398 
2488 
2418 
2428 
2438 
ip " 


2448 


2458 
2460 


2470 


2488 


next:a=! 

forc= =56t078step6 
char, c,17 ‚f$la): a= =atl 
nei 

a=] 


forc=2t02@step4: char ‚a5 ‚o,"ch 
:printa:a=at! | 


next 


char,45 ‚22, "uertel” 


Feature 
rem vertauschen | 
char,8,23,"getauscht wird . 


<bc> 


<hp> 
<ei> 
<nj> 
 <en? 


<dg> 


<ee> 


<pk> 
<bk> 


<ic> 


<ld> 
<ap> 


<eh> 


<da> 
<ih> 


<ei> 


<ip> 


<kh> 


<dk> 


<mc> 


<pp? 


<n]l> 


<aa> 


<ca> 


<oa> 
<mn? 


<hh> 


<ge> 


<nl> 


<li> 


<bj> 


<oe> 


<pa?> 
<ho> 


<np? 
<cn> 
<ak> 
<kp> 
<gi> 
<ib> 
<ff> 
<kf> 


<je> 
<nj> 
.<ah> 


2500 
25180 
. 2520 


ar,2,ct2,"Z":nextt 


- 26409 forc=1t018: Ehası 30,c+2, nen 


ar,22,ct2, 


‚. ar,2ab,ctde, | 
2688 ifs2( 3) >Bthenforc= 1tos2( 3) :ch 


2728 print" 


‚2760 print" 


"sleep! 
ifb=1then 
ifb=-2then 
ifb=3then 
ifb=4then 
forc=1t01808®:next | 
-forc=1to18: char, 2; c+2," ":nex 


print”Z" 
print"5" 
print"A" 
print"X" 


2498 


2538 
2548 
t 
2558 
t 
2568 
xt 
2578 
xt 
2588 


forc=1to18: char, 14, ‚c+2, u. 
ifst( 1) >Bthenforc-ttosi(1): 
2598 ifs1( 2)>@thenforc= Itosil2): 


ar,6,c+2,"5":next a: 
:ch 


2600 ifs1(3) >Othenforo-1tos1(3) 
ar, 1d,c+2,"A":next 

2610 ifs1(4)>dthenforc= Itos1(4) :ch 
ar,14,c+2,"X":next | = 
| 2620 foros 1to18:char,22, c+2, e "ıne 
xt 


xt 


xt | 
2650 forc=1to18:char, 34, c+2, " "ne 
xt ZZ 
2660 ifs2( 1)>@thenforc- 1tos2( 1): 
"Z"snext 

2670 ifs2(2) >@thenforc- 1t0s2(2): 
"G"inext 


ch 


ar,3d,c+2,"A":next 


2698 ifs2(4)>@thenforc= 1tos2(4) :ch 
bj? 


ar,34,ct+2, "x: 
2700 return 
2718 scnclr 


next 


elregeln fuer "rmnm$" purk oe 
r "rf$ | een © 


2730 print” = | "zv 


GzuSzuSzußzußzuSßzuSzugzußzußzugzug 


zu$zu$zv$zu$zu$zu$zu$zu$zuV$zu$zV$z 


v$zvV$zuV$zV$zu$zV$zu$zV$zV$zuGzu$zV 


$zv$zv$ 


2748 print" 


2750 print" zie 


l dieses spieles ist es so schnell 


wie 


moeglich 18 chipse in seinen be- 


....2990 print" 
116 zz 


sit 


a en. 
| er |  <bl> 
SODESTEONDLCHaNS N He ER 


.ne 


ch 


2630 forc=1t018: char, 26, 0+2, ie u 


<jm> 


<di> 
<17> 


<jb> 
nn? 
<fm 


<ca> 


<ed> | 


<aa>. 


<eg> 
ch _ 


<nh> 


<ne>. 


<i1b> 


<nm> 


<aa> 


ne 


<hb> 


<ho> 


ch _ 


<cc> 


<gb> 


<nn> 


<11> 


.<cj> 


ge 


<io> 


<lo> 


<FK> 


_ <dp> 


z zu rk: 


2768 print" 


a7 print" 000 0 in 
jeder runde bekommen sie eine " 
2808 print"  spi 
a den besitz der spielkarte 
5818 print" . koe 
nnen. sie Jewel: in der linken ta- 
2820 print" u u bel 
le erkennen. haben sie genug karte 
n | ’ | z—E 
2838 print" Ä | ‚koe 


nnen sie beginnen chips zu kaufen. 


2840. print" 


2858 print" ö | die 
chips sehen sie am rechten rand. 
2868 print" 

2870 print". 

2880 print" 


2898 print" 

ea TE 8 U ie 

29088 getkeyw$:scnclr | 

2918 print" | spi 

elregeln fuer "rn$" p u k e 
r "rf$ : | 

2928 print" | "zv 


Gruszubzußzussuezuen ernten 
zußzu$zußzußzu$zugzu$zu$zu$zvgzvV$z 
v$zv$zu$zußzu$zußzußzugzugzußzugzv 
$zv$zv$ 

2938 print" 


2940 print” rate der 
name des aktuellen rd ist 
2 irn 2 den 

eils revers ueber dem kartenfeld 
Ä 2968 print" Zum ang. 
geben. ‚der besitz an chipse steht 


<cp® 


<pp> 


<oi> 
<ca> 
<ml> 
de 
a 
<of> 


<jj> 


<ic> 
enc>. 


<cd> 


<80> 
<cd> 


<ob> 


<le> 


<pj> 


<gl> 


 <ff> 


20n® 


anhoert ist es nun doch Sisder 


3018 
ht. 


3828 


ikane eingebaut. 


iert 
3038 


print" | nie 


nach jeder runde ist eine 


print" sch 
wie dies funktion 


print" wer 


den sie schon merken. 


3848 


3850 


n sie nun eine 


print" 


print" wen 
"rn$" ta s tt 


e "rfg" ” 


3860 


print" : dru 


ecken kann es ORLENEN: 


38978 


ung" 


3148 


print" 


print" | 
2... viel spass 


getkayuß:raturn 


rem BENENNNERTUNG 


scnclr 


print" puker 
gewinnauswert 


print” "zu$zv$zv$zv$ 


3178 printc4$c4$c4$" 


zu$zu$zu$zußzu$zußzußzußzuSzugßzu$z 
v$zv$zv$zv$zV$zv$zvV$zv$zV$zV$zV$zv 


$zv$zu$zv$zu$zu$zV$zV$zuV$zV$zV$zv$ 


zv$zu$zv$zv$zu$zu$; 

3145 printzv$zv$zv$zv$zu$zV$zv$zV$ 
3158 printc4$c4$c4$" gewo 
nnen hat dies spiel | 
3168 ifs1>s2thenprintnaß( 1) :elsepr 
intna$( 2) 


.n...0, 
a | 9» 


zwei 
ter sieger ist u 
3188 ifst<s2thenprintnagl 1): alsepr 
intna$(2) 


3198 printlertöt.adt, a" 2 2 ® 


ee 
<oo> 


<ei> 


2970 print" 0 Jew- 
eils rechts neben dem namen. 
2988 print" 

2990 print" = abe 
r so einfach wie es sich bis hier- 
3800 print" her 


<bb> 


<pe> 


<80> 


<f]> 


<dp> 


<cg> 


<md> 


<kn> 


<be> 


<hk> 
<jj>. 
<ik>. 
<jm> 

<ga>. 


<co> 


<hm> 
<nf>. 


<mm?> 


<pk> 


-  <ai> 


<oe> 


"rf$"eues spiel" 


rn$" n 
3200 printc4$" 
. f$"eiter spielen bis 
3218 PEINESAS 
. f$"nde" 

3220 getw$ 
3238 if w$="w"thenvs=vs+1ß: goto530 
3248 if w$="n"thenrun 
3258 ifw$="e INNERER print’ auf 
wiedersehen !":n | 
3268 goto 3228 
3278 rem 


ustid 
"rn$" e "r 


3258 forc=1t015: char, 2 ‚or2," "ınex 


es 
3298 forc=1to1ß:char,6,c+2," ":nex 
3380 forc=1to18:char, 18,c+2," ":ne 
xt | . 


xt 
3328 ifsi( 1)»Bthenfors-1Itosil 1):ch 
ar,2,c+2,"Z":next 


3338 ifs1( 2) >@thenforc= 1tos1(2):ch 


ar,6,c+2,"5":next 

3348 ifs1(3) >@thenfore=1tos1(3) :ch 
ar,1d,c+2,"A":next E“ 
3358 ifs1(4)>Bthenforc=1tos1(4):ch 
 ar,14,c+t2,"X":next 

3360 Foro=1to18: char, 22, e+2, " "ne 
xt 


*"rn$" w "ri 


3310 forc=1tol8:char,14,c+2," ":ne 


3378 forc=1t018:char,26,c+2," ":ne 


xt 
3388 forc=1t018:char,30,c+2," ":ne 
xt 


3398 forc=1to18:char,34, c+2, " "ine 


xt 

3409 (Bots nenteresitessltlich 
ar,22,c+2,"Z":next > 
3418 ifs2(2)>Bthenforc=1tos2(2):ch 
ar,26,c+t2,"5":next 

3420 ifs2( 3) >@thenforc= 1t0s2(3):ch 
ar,30d,c+2,"A":next 

3430 ifs2(4) >@thenforc=1t0s2(4) :ch 
ar,34,c+2,"X":next 

3448 char. 14,0: printusing"###"; s1 
3450 char, 34,8: printusing"###"; s2 
3468 neturn 

60808 rem nachspann ============== 
60818 rem *farbcodes/steuercodes * 
60028 c4$=chr$( 017) :rn$=chr$( 018) 
68838 rf$=chr$( 146) :c1$=chr$( 157) 


60048 rem **#*#zeichensatz/graphik * 
60858 s2$=chr$l 168) :zc$=chr$( 173) 


60068 zd$=chr$( 174) :zf$=chr$( 176) 


60078 zg$=chr$( 177) :zh$=chr$( 178) 


60880 zs$=chr$( 189) :zu$=chr$( 192) 


60898 rem "RERFFHS##Zeichenfolgen ne 


60108 For q=1 to 40 


‚6B11D ad$=gd$+c4$: alsralsrcıe <a 
60120 nextq <fp> 
<ch> 


60138 return 


Bun 
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Konto der Symbole wird für re Mitspieler auf der lin- 
ken Bildschirmhälfte geführt. _ 

In jeder Runde erhalten Sie durch Würfeln (auf Tasten- 
druck) ein Symbol Ihrem Konto gutgeschrieben. So 
sammeln Sie ein entsprechendes Guthaben. 

Aber Vorsicht! Als „Schikane‘ kann pro Runde Ihr Gut- 
haben an einem bestimmten Symbol mit dem Ihres Geg- 
ners vertauscht werden (oder umgekehrt). 

Darauf haben Sie keinen Einfluß, das legt der Zufallsge- 
nerator fest. Wir können Ihnen daher nur empfehlen, SsO- 
bald wie möglich einen Chip zu kaufen. | 


Dabei geschieht folgendes: 


1. Das Punkte -(Chip- )Konto des eyeiligen Spielers wird. 
a (Das ist die Zahl rechts neben dem Spieler- 
namen 


2. Die verwendeten Symbole werden dem knendee 
Spieler abgezogen, er muß sie a durch Würfeln er-. 
.neut erreichen. 


| 3. Die Chip- Anordaäng wird wieder neu festgelegt. 


Wer als erster zehn Punkte gesammelt hat, ist der Gewin- 
ner. Nun werden Sie vom Computer gefragt, ob Sie wei- 
terspielen möchten. Wenn Sie mit Ja antworten, bleibt 


der erreichte Punktestand erhalten. Das weitere Zielist. 
. jetzt die nächste Zehner-Grenze. 


Wolfgang Werner/hbU 


E23 
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SERVICE 


Börsen-Spiel 


‚Sich den „scharfen“ Wind der Hochfinanz einmalum 
die Nase wehen lassen, die Wallstreet ins Wohnzimmer 
holen, das können Sie jetzt mit Ihrem Computer und 
diesem Programm. 

Dieses grafisch gut gelungene Spiel für den C 128 
läuft nur im 40-Zeichen-Modus und ist für minde- 
stens zwei, höchstens aber sechs Spieler gedacht. 

Nach dem Start des Spiels können Sie sich noch- 
“mals die Spielanleitung zu Gemüte führen, wenn Sie 
“J“ eingeben. 

Das Auswahlmenü bietet Ihnen folgende Optionen, 

die mit den entsprechenden Funktionstasten ange- 


. wählt werden müssen: 


Spielbrett wird auf dem Bildschirm angezeigt 
" Aktienkauf 

Aktionskarten 

Aktienverkauf 

allgemeine Übersicht 

Aktionskarte ausspielen 

Nächster Spieler 

Spiel beenden 


7 
DL 


Tamm T 
ONANPW 


SPIELVERLAUF 


Dieses Spiel simuliert den Alltag an einer Aktienbörse. 

Durch geschickten Kauf und Verkauf von Aktien 

sollen Sie möglichst großen Gewinn erzielen. Mit der 

Hilfe von Aktionskarten können Sie direkt die Ak- 

tienkurse manipulieren! Aber aufgepaßit: Die ande- 

ren Mitspieler sind auch'noch da! 

Sind Sie an der Reihe, können Sie im Hauptmenü 

frei wählen, was Sie gerade tun möchten: Aktien kau- 

fen und verkaufen, das Spielbrett oder Ihre Aktien- 

übersicht anschauen. Allerdings sollten Sie zwei wich- 

tige Regeln beachten: 

— pro Spielrunde ist obligatorisch eine, aber nur eine 
Aktionskarte zu setzen 

— vor dem Ausspielen der Aktionskarte gekaufte Ak- 
tien können nicht in der selben Runde verkauft 
werden. (Das gilt natürlich auch UBER EREN, ) 


DIVIDENDE UND KONKURS 


Ein Aktienkurs übersteigt die 100-DM-Grenze. Die Dif- 
ferenz zwischen dem Aktienkurs und 100 wird nun 
in Form einer Dividende an alle betroffenen Aktionä- 
re ausbezahlt. Der Aktienkurs fällt auf IOODM 
zurück. 

Fällt hingegen ein Aktienkurs unter die 10-DM-Gren- 
ze, bedeutet dies den Konkurs der betreffenden Fir- 
ma. Alle Aktionäre verlieren diese Aktien. Pro Aktie 
muß zudem die Gebühr von 8 DM entrichtet werden. 
Wer kein bares Geld besitzt, muß andere Aktien ver- 
kaufen. Der Computer verkauft automatisch soviele 
Aktien, bis die Schuld getilgt ist. Hat jemand nach 
diesem "Verkaufi immer noch Schulden, scheidet er aus. 


MELDUNGEN 


Natürlich sind die Aktienkurse nicht alleine von Ihnen, 
also den Spielteilnehmern, abhängig. Nach jeder Spiel- 
runde besteht die Möglichkeit einer sogenannten Mel- 
dung. Diese politische oder wirtschaftliche Mitteilung 
beeinflußt natürlich ac Aktienkurse. Zu Beginn 


können Sie selber die Häufigkeit Aids Meldungen 


bestimmen. 


SPIEL. UND BEDIENUNGSBESONDERHEITEN | 


— Um das Spiel zu erschweren ist es möglich, am An- 
fang einen Teil der Aktionskarten zugedeckt zu er- 
halten. Diese werden dann nach und nach (pro Run- 
de eine) vom Computer aufgedeckt. Für Sie ist es 
jetzt schwieriger, Ihre Spieltaktik gleich am An- 
fang festzulegen. 


— Sind Sie an der Reihe? Dann sollten Sie die ande- 


ren Mitspieler vom Bildschirm wegschicken, da- 

mit Sie Ihre Transaktionen alleine ausführen kön- 

nen. Auf diese Weise weiß niemand außer Ihnen, 

welche Aktien und welche Aktionskarten Sie ge- 
 rade besitzen. 


— Wollen Sie ein Untermenü frühzeitig verlassen, 


drücken Sie einfach Return. Diese Leereingabe 
führt Sie ins Hauptmenü zurück. 

— Beim Menü „Aktienkauf“‘ kann bei der Frage Bach 
der Anzahl mit “M“ geantwortet werden. Der 
Computer kauft für Sie nun die maximal mögliche 
Menge. Bei ‚Aktienverkauf“‘ werden auf die Ant- 

- wort “A“ alle vorhandenen Aktien der betreffen- 
den Firma verkauft. 


— Keine Angst vor Fehleingaben und Regelverstößen! | 


Diese werden vom Computer erkannt und ver- 
hindert. (Stefan Schäli) 


58 Zeig beim Porto 
Herz & Verstand... 


Bundespräsident Dr. Richard von Weizsäcker 
Schirmherr des Sozialwerks „Wohlfahrtsbriefmarken.” 


...Kauf Wohlfahrts- 
briefmarken.ys 
Schöne Motive für Hilfe, die Ihr Ziel erreicht. 


Erhältlich bis Ende März bei der Post. ganzjährig bei den Wohifahrtsverbänden. 
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Börsenspiel 


ID rem boersernspiel=-- 


==..128 

28 rem | Te 
30 rem Aammmnunnanunnnennnnnnn 
48 rem (c) by == 
sd rem. s. schaeli == 
68 rem | | == 

?® rem version 7.0 4Bdz/ascii== 

88 rem 128 pc + Floppy == 
98 rem =-=====22=-22eunes anne 


188 trap4440:g0t02540 
118 rem fi - spielbrett 
128 rem BRRHRRRRRRRRRII 
138 fast:graphic! a | 
148 fori=1t05:spritei,: nexti:slow 


158 color1,16:char, 2e2,22,"space dr 
wecken", 1: getkeyaß 

160 Far: char,2, 22, = ":char, 
11,22," ":graphic®: fori=1t 


05: spritei, B:nexti:slow: return 

.178 rem f2 - aktienkauf 

188 rem WRBRRBRRRRRREGHE 

198 fast:window1,5,38, 19:scncir 

288 printro$c2$"aktienkauf | 

| "we$ 

218 print:printl1$;: fori=1t012: pri 

'ntl2$; :nexti:print13$" "11$;:fori= 
1to21:print12$; :nexti: print13$ 

220 PESNEASS Lab SSR” "14$tab( 37 

)15$ 

238 print16$;:fori=1to012: print17$; 
:nexti:printl8$" "16$; :fori=1to21: 

print19$; :nexti:print18$ 

248 print:printl1$;:fori= Ito90: pri 

nt12$; :nexti: print13$ 

258 fori=1toS: print14$tab( 37) 158: n 

exti 

268 print16$; :fori=1t036:print19$; 

:nexti:print18$ 


278 fori=1t038:print17$; :nexti 


280 window2,8,39,24:printo2$"firma 


:"tab( 15) "anzahl :":g0sub3490 


298 window2,12,39,24: print"vorhand 


enes kapital "dm${ sp)” dm" 
308 print:print"kaufbetrag 
:":fori=1t036:printunß;: nexti: 
HDEIIE: print"restkapital 
:s1low | 


 <pe> 
<1h> 
<ae>. 


<pp> 
<md> 


<ah> 
<gk> 


<a8> 
ng> 


<1lk>. 
 <80> 
<da> 


<ml> 


<ii> 


<n > 


<bf> 
.<ob> 


<ih> 


<ja> 


<nj> 


<ac> 


<cc> 


<ca> 


<je> 


.<da> 


<bi> 
<ok> 


<gp> 


<jh> 


318 window1®,8, 13, 9: Fig="": inputfi 


$ 

3280 if fi$="" Ehen Hekükn 

338 if fi$<>"a" and fi$<>"b" and f 
i$<>"c " and fFi$<>"d" and fi$<>"e " 


then hi=4: gosub357B: printo2$: g0to3 


18 


348 gosub341B: ang-"": window3ß, 8 ‚37: 


‚9:inputan$:if an$="" then return 
350 epyallong) 


<ij>. 
<fg> 


<hj> 


<i> 
"<nk>. 


640 :0=6:u=fi: testn="2 x 


"368 if ang="n 2 then en-int£ dmt op) / 


k(fi)) 


398 if an<1 then return 


388 window27, 14,39, 24:kb= sansklel): 


gosub3478B: printkb$" dm" 


398 window2?, 16,39,24: rk=dm( sp) -kb 
:gosub3470: printrk$" dm" 


400 if an*k( fi) >dm( sp) then hi=5: 8 


0sub3578:g0t0198 


418 if mk(sp,fi)=® then hi= 6: gosub 


35708:hi=?: gosub357B8:return 


420 hi-8:g0sub3570: getkayaß: ifag-" 
n"” then goto190d 
438 dm( sp) =dm( sp) -klfi)*#an: dl eo 
int(dm(sp)):ak(sp,fi)=ak(sp,fi)+an 


440 mv(sp,fi)=mv(sp,fi)-an:return 
458 rem f3 - sktionskarten 
460 rem HRRRRRRRRRRARRRRFRF 


478 fast:window®,8,39,24:scnelr:nr. 


-d 

4808 .do:nr=nr+1 
398 window pw{ 2#nr- 1) ‚pw( 2#nr),, 29, 
24:print:gosub332B 

SB if len(ka$(sp,nr))=® then  goto 
738 

518 if len(ka$l sp,nr))=1 then begi 
n 

528 :o=fi:u=6: Ne dm": te$(2 


f 


‚Jefi$ 


530 ;te$(2)="bel. ".te$(4)="28 dm 


548 bend 
550 if len(ka$(sp,nr))=2 then begi 


'n 


560 :o=fi:u= =6: te$l1)="2 x "te$(2 
)=fi$ | j 
578 :te${3)="bel. ":te$(4)="1/2 
588 bend 


n 


60D :0=fi:u=6: te$( 1)="50 dm":tef(2 
<al> 


J=fi$ 

em en )e "restl.":te$(4)="10 dm 
620 bend 

638 if a then hagi 
n 


)="bel. 1) 
658 :te$( 3): -fi$: ie Bi 
668 bend 


n 


688 :o=6:u=fi:te$( 1)="28 dm"rte$(l2 


)="bel. " 
698 :te$(3)=Fig: te$(4)="30 dm" . 
708 bend | 


":te$(2. 


<ag> 
<ig> 


<ae> 


<ah> 


<mn> 
<mi> 
<md> 
<ir> 
<nm> 
<bf> 
<kf> 


<ak> 
<oc>. 


<ga> 


<ig> 


 <1lp> 


<eh>. 


<ph> 


<in> 
<jp> 
<1l1> 


<mo> 


<co> 
598 if len(ka$lsp,nr))=3 then begi | 
<en> 


<fh> 
<mo> 


<nj> 


<jj> 
<if> 
.<gp> 
670 if len(ka$( sp,nr))= =5 then begi 


<hd> 


<ih> 
ip. 


<ap> 


910 if len(ka$lsp,nr))<4 then teßl. 
 "ielse te$(3)-te$l 


er=te$l2) +" 
3) +" " 
720 gosub4229: if (kz(sp)>vz) and ( 
nr>2tkz- -vz-kz(sp)) then printkg$:e 
lse print ko$ 
238 loop until nr=kz | 
748 slow:if f6<>1 then getkayas 
758 return 
768 rem f4 - aktienverkauf 
79708 rem WRRRRRRRRRRRRRETFE | 
788 fast:window1,5,38,19:scnclr 
798 printro$o4$"aktienverkauf 
| "we$ 

888 print:printl1$;:fori=1to12: pri 
ntl2$; :nexti:print1l3$"” "11$;:fori= 
1t021:printl2$; :nexti: print13$ 
8108 print14$tab( 13) 15$" "14$tab( 37 
J15$ 
828 printl16$; :fori=1to12:print17$; 
:nexti:print18$" "16$; :fori=1t021: 
print17$; :nexti:print18$ | 


838 print:printl1$;:fori=1t036:pri _ 


nt12$; :nexti:print13$ 

848 fori=1t0S: printl4$tab( 37) 15$: n 

exti 

858 print16$;: fori> 1t036: print198; 
:nexti:print18$ 

860 fori= 1t038:print1?7$; :nexti 


870 window2,8,39,24:printc4$"firma 


:"tab( 15) "anzahl :":g0sub3478 
888 window2, 12,39,24:print"vorhand 
enes kapital "dm$(sp)" dm" 
898 print:print"verkaufserloes 


:":fori=1t036:printung; :nexti: 


print:print"restkapital 

:": slow | 

988 window10,8,13,9:fi$="":inputfi 

$ ; 
918 if fi$="" then return 

928 if fi$<>"a" and Fi$<>"b" and f 
i$<c>"c" and fi$<>"d" and Fi$<>"e" 
then hi=4:g0sub3578B: printc4$: goto9 
BB 

930 gosub3410: an$="":window38,8,37 
‚9:inputan$:if an$g="" then 

90 an=val(.an$) 

958 ifan$="a"then an=ak( sp, fi) 

968 ifan<i then return 

978 window27,14,39,24:vb=antk( fi): 

gosub34978:printvb$"” dm" 

988 window27,16,39,24:rk=dm( sp) +ub 
:gosub3498:printrk$" dm" 


998 if an>ak( sp, fi) then hi=9:; gosu 


b3578: goto780® 


1888 if mv(sp,fi)<an then hi=18:go 


sub3578:hi=11:gosub3598:return 


1818 hi=-8:gosub3570:getkeya$:ifag- 


<ia> 


ckf> 


<bd> 
<mc> 


<gp> 


<dd> 
<gc> 
<na> 


<fe> 


<eb> 


<bk> 


<pk> 
<ck> 


<1k> 
<eh> 


ns 


<bf> 


<ma> 


<ib> 
<di> 


<em> 


<fd> 


<dm> 
<kn> 


<lp> 


<li> 


<ck> 


<gc> 


<go> 


<fb> 
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 ri=1t038:print17$; 


. 1188 


"n" then g0t0788 

10828 dm( sp) =dm( sp) +kK( fi) *an: dualen) 
=int(dm(sp)):ak( sp, fi)=ak( sp, fi)-a 
n 


RKCapFTEB Fetten 


1038 

1848 rem f5 - allgemeine uebersich 
t ns | 

1058 rem BRRBRRRRARRRRHRRRRRRFEREEN 
+ 2 : 

10868 fast:window1,5,38, 19:scnelr 
10878 printro$c5$"allgemeine uebers 


icht | * 

1888 print:print"firma"tab( 16) "anz 

ahl"tab( 34) "wert" 

10898 fori=1t038:printun$; :nexti 
1188 vb=d:kb=dm( sp) 

1118 forfi=1t05:gosub3338:an= ak( sp 
‚fi) :vb=an#k( fi) :kb=kb+vb:gosub349 


2 
1128 printtab(2)chr$( fol fi))fi$tob 


(12) an$tab( 27)vb$" dm":nextfi 
71138 printc5$"vorhandenes kapitel 
‚"tab( 27) dm$( sp)" dm” 

1148 printtab( 29) "CECECCCCCC”: print 
"gesamtwert :"tab( 27)Kkb$" 
dm" 

1158 printtab( 29) "========="we$:fo 

:nexti:slow 

1168 if di(sp)>® then begin 

1178 :do 


runde:”" 

1198 :fi$=left$(ldi$(lsp,(dilsp))), 
):gosub3418:print"firma "chr$(fa(f 
i))Fi$c5$" :"right$l di$lsp,(dilsp) 
)),6)" dm .; | 

1288 :print"("mid$l di$(l sp,(di( sp)) 
),2,3)"” dm pro aktie)";:getkeya$ 
1210 :di(sp)=di(sp)-1:loop until d 
il sp) =® 

12208 bend 

1238 if ko{fsp)>® then begin 

1248 :do 

1258 :window1,21,38,23: printo5$"ac 


 htung! arkurss der letzen runde: 


1268 :fi$=left$(ko$(l sp,(kolsp))), 1 
) :gosub3418:print"firma "chr$( fat f 
i))fi$c5$" : "right$(ko$(lsp,(kolsp 
))),6)" dm ";: print"( 8 dm pro akt 
je)"; : getkeya$ 

1278 :ko(sp)=kolsp)-1:1loop until k 
o( sp) =® 

12808 bend 

1298 getkey a$:return 

1388 rem f6 - aktionskarte ausspie 
len 


:window1,21,38,23:printchr$( 1 
29)"achtung! dividenden der letzen 


<da> 
<pb> 
<dd> 
<di> 


<kn> 
<ca> 


<hn> 
<ji> 
<kh> 
<eb> 
<nf> 
<eh> 


<bf> 


<mk > 
<ml> 


<jo> 
<1j> 


<ch> 


<ig> 
<kk> 
<cf> 
<di> 


<bg> 
<nc> 


<fi> 


<gc> 


<cg> 
<cj> 


 <bm> 


<1p> 


1319 rem RRRHRRRRRRRRRRRRRRRRR | 


5 


1328 if kz(sp)<ruthen hi=2: :gosub3s 
78:return 


<nf> 


<dh> 


1338 f6=1: gosub47B: f6=8:rem elle Bei, 


ktionskarten zeigen . 


1348 nr$="":window! ‚24, 29, 24: scncl 
r: printc9$"welche karte wollen sie 

| <ll> 
<od> 


setzen"; :inputnr$ : 

. 1358 if nrg="" then un 
1360 nr=val(nr$). a 
1378 if nr=8 then return 2 
1388 scnclr:window®, 0,39, 24 


<pg> 


<fc> 


.<gce> 
.<kh> 


1398 if nr<d or nn59 Ehen char, 1 ‚Di. 


4,"diese nummer existiert nicht !": 
sleep2: goto1348 

1408 if ka$l sp,nr)="" then char, 1, 
'24,"diese karte existiert nicht ne 
hri": sleep3:g0t01340 | 
1410 if (kKz(sp)>vz) and (nr>2#kz-y 


z-kz{sp)) then char, 1,24, "diese ka 
rte ist noch zugedeckt": sleep3: go 


t01340 

1420 fg$="":gosub3320: window? 23,3 
9,24:print 

1430. if len(ka$l ep, nr))= 1 then bag 
in. 

1448 :window1,24, 39, 24: eenelr: prin 
deren mr um 28 dm sinkt" 
‚ :inputfg$:scnclr:window9,8,39,24 
lase :gosub361B:if far then gotot 
4408 
1460. 
3412: 
1478 
1488 
in | 
1498 :window1,24,39,24:scnclr:prin 
t"firma deren kurs halbiert wird”; 

:inputfg$:scnclr:window8,8,39,24 
1508 :gosub3610:if fe=1 then goto1 
480 | ; 
1518 :KlFfi)=Klfi)*2:Ffi$efg$:gosubd3 
- 418:Klfi)=(int(klfi) /20))*10 

1528 bend 

1538 if len(ka$( sp,nr))= =3 then beg 
‚in 


iklfi)=klfi) +40: Fi$efg$: seen 
kKfi)=k(fi)-20 
bend 

if len(ka$(sp,nr))=2 then beg 


1548 :klfi)=kKlfi) +68: fori=1toS: kli 


)=kli)-10: nexti 
15580 bend 
1568 if len(ka$(sp,nr))=4 then beg 
"in. 
1578 :window1,24,39,24: print"firma 
deren kurs verdoppelt wird"; :inpu 
tfg$:scnclr:window®,8,39,24 

1588 :gosub3610:if fast then gotol 
5708 | 

1598 :kCfi)=(intlkKlfi)/20))*10:Fi$ 


<pl> 


<bk> 


<cJ> 


<of> 


<bp> 


<gm> 


<ec> 


 <mk> 


<ce> 


<jj> 


<rP> 
<hc> 


<hm> 
<om> 


<mp> 


<ff> 


<gf> 


<pk> 


<cp> 


<hc> 
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1658 


.. 1688 


1720 : 


=rg8: ‚gosub3410: KEN KH) 82 
1680 bend 


1618 if ten(ka$(ep,nr)) 5 then beg 
in = 


1628 ‚window! ‚24, 39, 24: schcir: prin 


ESP ESmB, deren kurs. um 28 dm steigt 
;:inputfg$:scnelr: window8,8,39,24 


628 
1648 :k(fi)= -KCHi)- -38: ei- 1: gasub 
3410: kKri)=KOri) +20 

bend. ae . E; 
ka$(sp,nr)="":; kzlsp)=kzlap) -1 
fi=®:rem dividenden und konku 


1668 
1678 
rs . 
fi=fi+ri:gosub3330 
1698 if kLfi)>188 then begin 
1780 


3278:kKl fi)=180 


1718 :fast: graphiel: color, BERG 
char, 11,22, "dividende”, Es gosub14B: 


i=8 


1750 

1730 : 

fi$:di$=" 

=di$(i,dili))+right$( di$,3): dig=" 
"rstr$(disakli, fi)) 

1748 = 


i) 


1958 :if i<sz then goto1720 


1768 bend 


1778 if kKlfi)<18 then begin 


1788 :kKCfi)=d:gosub3278:Klfi)=5B:f 


ast:graphici:colori,co(fi):char,2, 


22,"konkurs", 1: gosub14B: i=d 


1798 
01848 
1888 ::koli)=koli)+1:koßli,koli))= 
fi$:koß="  "+str$(8*akli,fi)) 
1810 : 


:isiri:if akli,fi)cl then got 


B*akli,fi):akli,fi)=® 
1828 :: 


loop:if dm(i)<® then ui) 


1848 :if i<sz then goto1790 

1858 bend 

1868 g0sub3278: if fi<5 then goto16 
88:else:return 

1870 rem #7 - naechster spieler 
1888 rem HRRRRRRRRRRRARRRRREN 
1898 if kz(lsp)>ru-iIthen hi=3:gosub 
3578:g0ot02268:elsegoto26108 


:dili)=dili)rt:digli,dili))e 
"+str$(di):di$li, ‚ilä)) .. 


j=1:do while dm(i)<®:do whil 
le (akli,j)>8) and (dm(i)<®):akli, 
JJrakli,j)-1:dmli)= =dm(i)+k(J): ‚l00p. 
.ı3j=j+tli:if j=6 then exit 

1830 :: 
2 


<dg> 
<co> 


een 


Bu 
1630 ee a u. 4 then gott 
er  <hh> 


> 
 <pg> 


<ch> 


<hJ> 


<1l> 


ee 
:di=k( fi) -100: kefile 118: gosub 


<af> 


CKf> 
isirl:ifakli,fi)<i then goto Eu: 


<jg> 


<jb> 


di$fi, dili))=digli, diläi))tr 
ight$(di$,6): dm( i)-dml i)+ditakli, Fz 
| <o 


<hf> 
<la> 
<kk> 


<hp> 


<hc> 


<b> 
:ko$(i,koli))=ko$li,koli))+to 
hr$( 45) +right$(ko$,5) :dm(i)=dmli)- 


<mg> 


<jb> 


<nf> 


<fm> 


<bk> 


<eo>. 
<ha> 


cher 


1980 rem fB - ganzes spiel beenden 
1998 rem WBRRRRRRRRRERBISHIEIEIRIESESFIESESESG 
1928 window1,21,38,22: Bes vol 


„ten sie das spiel wirklich schon" 


print" beenden”; :inputanß: if ang«>" 
j"thengoto2260 
1938 fast:ge( 1)=®:forsp=1tosz: forf 


 i=1t08: dm{ sp) =dml sp) rakl sp, FiJ#klt 
: :<ip> 
1948 fori=itosz:ifdm(sp)>geli)ordn 


i):nextfi 


(sp)=ge(i)then forj=sztoistep-i1:ge 
SCHI) =ge$l j):gel j+1)=gel J) :nextj: 
ge$li)= =na$( sp): geli)=dm( sp): goto19 
68 

1958 nexti 

1968 nextsp 

1978 gosub130:fast:f8=1: gosub2268: 
window1,5,38,17:scnclr 

1988 printchr$( 18)08$” schlussueber 
sicht ":print 
1998 fori=Itosz:if ge(i)<=® then g 
0ot02818 

2000 rk=ge(i) :gosub351@:printchr$( 

feti))" nr."i" "ge$li)tabl27)rk$" 
dm" 

2818 nexti: Srint: printchr$( 154) "de 
m sieger "ge$( 1)" wird herzlich" 

2028 print"gratuliert!":slow:windo 

w1,21,38,22:print"noch ein spiel”; 
inputons: if an$="j" then run 

2838 window1,21,38,22:scnclr:print 

ro$"” auf wiedersehen! 

":sleep4:window®,8,39,24 
2848 scenclr:graphici,1:graphicd:pr 


intchr$( 153) :color4,14:color®, 12:e- 
| <hd> 
<eh> 


nd | 

2858 rem meldungen 

2060 rem Hrutuusee 

2070 m=int(rnd( 1) #180+1): if m>hm t 
hen return 

2088 fast: windowd, B, 39, 24:scnclr:p 
rintlb$"achtung! achtung!”: fori=1t 
017 :printun$; :nexti 

2098 print:printc9$:fori=1t048: pri 
nt12$; :nexti:m=int(rnd( 1) #12+1) 
2100 if m<S then begin 

2118 :kb=int(rnd( 1) *m(2, m)): kb=[ kb 

+ml1,m))*18:gosub3580:kb$=right$(k 
b$, 2): fisint(rnd( 1)#5+1) 

2128 :gosub3338B: printchr$( Fal fi))" 

firma "fi$" meldet:":printm$(m) 
2130 :printro$”veraenderung des ak 
tienkurses:"kb$" dm” 

2148 :printc9$; :fori=1t048:print1? 
$;:nexti 

2150 :KCFi)=KCFi) Kb: slow: eye 
:gosub 1670 

2168 bend 


<df> 
<fl> 


op 


<jf> 


<oe> 


<hm> 
<jh> 


<me> 


<de> | 


"<hi> 


<hc> 


<ak> 


<if> 


<ij> 


<bd> 


<ol> 


<nd> 


<on> 


<1l> 
<ba> 
<mb> 


<oe> 


<nc> 
<pg?> 
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2318 printl4$ro$c9$"f1 


.en- 


nn 


2170 if m>4 then begin oo. 
2188 :printm$(m): Bein: Kaauiklaren 


de kursschwankungen:”" 
1105 


ren. forfi= 


2198 :kb=int(rnd( 1)#m(2, m)): ‚Kb=(kb 


+m( 1,m)) *10:gosub3598 


22808 :gosub3330: printchr$(falfi))r 


o$"firma "fi$": 
"kb$" dm" IKLFI)=KEFI) +Kb: rin: n 
extfi 


2218 printc9$: fori=1t048:print17$; 


:nexti:slow: Ra gosub 1678 
2228 bend 

2238 return 

2248 rem hauptmenue 

2258 rem Hr 


2268 fast:window8,8,39,24:scnclr:p 


rintwe$"” Eoarsenepie Fori=1to12: p 


rintun$; :nexti 

2278 windowd,4,39,19 

2288 print11$: :fori=1t038:print12$ 
‚:nexti:print13$ 

2298 printl4$ro$lb$na$( sp) ;:fori=1 

to( 38-len(na$( sp))):print” ";:next 
i:printtab(31)"runde: "str$lkz- rut! 
)we$rf$15$ | 

2308 printl4$tab( 39) 15$ 


| "c1$" spie 
 lbrett "spco(2)c5$" allgemeine 
"c9$"f5 "we$rf$15$ 
2328 print1l4$ro$c9$" "c1$" 


"spc(2)c5$" uebersicht 
"c9$" "wesrf$15$ 
2338 print1l4$tab( 39) 15$ Ä 
2348 printl4$ro$c9$"f2 "c2$"” akti 
enkauf "spc(2)c6$" aktionskarte 
"c9$"f6 "wegrf$15$ 
2358 printl4$ro$c9$" "c2$" 
"spc(2)c6$" ausspielen 
"96" "wesrf$15$ 
2368 printl4$tab( 39) 15$ 


2378 printl4$ro$c9$"f3 "c3$" akti 


ons- "spc(2)c7$" naechster 

. "c9$"f7 "we$rf$15$ u 
2388 print14$ro$c9$" "c3$” kart 
en "spc( 2)c?7$" spieler 
"c9$" "we$rf$15$ 
2398 printl4$tab( 39) 15$ 
2408 printl4$ro$c9$"f4 "c4$"” akti 


"spc(2)c8$" ganzes spiel 
"c9$"f8 "we$rf$15$ = 

2418 printl4$ro$c9$" . "c4$” verk 
auf "spc(2)c8$” beenden 

"c9$" "wesrf$15$ 

2428 print16$; :fori=1t038: PrineIo® 
‚ınexti:printl8$ 

2438 windowd,20, 39 ‚24:printli1$;:fo 
ri=1t038:print12$; :nexti:print13$ 


<de> 


<kn> 
<oc> 


<kn> 


: <he> 


<pk> 


<gd> 


2448 print14$tab(30)156; printläßte 
b(39)15$ . 

2458 print16$;: fori=1t038: a, 
‚:nexti:print18$ | 
2468 if f8=1 then return 
2478 slow:hi=1: gosub3578 
| 2488 getkeyaß: a=val(la$):on a gosub 
--130,198,499, 7808,108608, 13220 
24908 ifa<7thengoto2260 | 

a 2500 ‚on (a-6) ae 1898, 1928 


2518 2002268 oe 

2528 rem hauptprogramm 

25308 rem HH 

2548 gosub366ß:rem initialisierung 
und titelbild. 


2558 gosub2728:rem anleitung und s 


tart _ 

2568 do while ru>ß:sp=® 
2578 de | 

2588 :5p= sp+1 

2598 : ::ifau( sp) = torau( sp)=2thensp=. 
sp+l:ifsp>sz then goto2610 | 
2688 ::goto2268:rem hauptmenue 
2618 :loop until sp>=sz 

2628 :gosub287®:rem meldung 


2638 :sp=® 
2648 :sp=sp+1 | 
2650 :ifau( sp) =2thenslow: windowß, ® 


‚39,24:scnclr:printwe$"spieler na 
$(sp)" scheidet":print”"wegen geldm 
angels aus!!!":getkeya$:au(sp)=1 
2668 :forfi=1toS:mk( sp, fi)=1:mv( sp 
‚fiJ)=ak(sp,fi):nextfi:if sp<sz the 
n 8002640 | 

2678 :ru=ru-1 

. 2688 loop | ee 
‚2698 goto1938:rem ende 

2708 rem anleitung und start 
2710 rem HRRRRRRRRRSEISISEIEENE 
2728 window8,8,39,24:slow:scnelr:p 
rintwe$' in, 
rintun$; :nexti 

2738 print:input” wuenschen sie ein 


<je> 
<af> 
 <cf> 


<bj> 


«id. 


<km> 
<1j> 


<hi> 


<ja> 
<lh> 


<on> 


<bm> 
<dl> 


<kp> 


<hj> 


<pi> 


<gm> 


<gg> 


<ko> 


<be> 


 <in> 


<jn> 


<fe> 
<of> 
<pb> 


| <pl> 


<pf> 
<kn> 


<pb> 


e anleitung";an$:ifan$="j"thenbegi . 


ER | RE a 
2748 fast:scnclr:print"anleitung”: 
fori=1t09:printun$; :nexti 

2758 print:print"dieses spiel simu 
liert den alltag an":print"einer a 
ktienboerse. bis max. 6 spieler" 
2768 print"koennen durch den kauf 


und verkauf”:print"der 5 moegliche 
:print"sche. 
<kb>_ 


n aktiensorten das ge-" 
hen beeinflussen. mit hilfe von" 

2778 print"aktionskarten kann jede 
r mitspieler”:print"direkt die akt 
ienkurse manipulieren." 


<pk> 


<ce>. 


<pm> 


:print"sieg 
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: 2868 print” 


2888 print" 


inken um einen bestimmten" 
 c(9)"betrag." 


er gen aplaın WILd, MeE neoh einer 


groesste" 
chaftet hat.hier die" 
rung der wichtigsten menuepunkte:" 


2798 print:printc9$ro$”"F1"c1$spe( 1 


<de> 
2788 print" gewissen rundenzahl das En 
:print" vermoegen erwirts 
:print"erklae. 


nc> 


)"spielbrett"rf$"auskunft ueber di... 


e neuesten” 


:print" aktienkurse d 


‚er firmen a,b,c,d und e. 
2808 printc9$ro$" #2" 02$spo( 1) "akti 


enkauf"rf$" man erzielt gewinn dur 
ch":print" 
ten aktien vor” 
2610 print" 
tionskarte und”:print" 
teurern derselben. in der" 
naechsten runde. 


EDDANE 


28208 inne: 


gen: kauf von preiswer 


dem einsetzen der ak 
durch den. 


...<dd> 


ende: 


<bn> 


)"aktionskarten"rf$" uebersicht ue 


momentanen besta 
die" 


ber den”:print" 
nd aller karten, 
2838 print" 
ation geDrauont print" werden k 
oennen.";:slow:getkeya$: fast 

2848 scnelr: printc9$ro$"f4"c4$spel 
1)"aktienverkauf"rf$" siehe aktien 
kauf! 


<kg> 
fuer die kursmanipul 


<am?> 


<od> 


2858 print: printe9groß"FS"c5ßspel 1 


taner ge-":print" samtwert aller 
aktien, sowie kapital-" 
bestand. 
ie den spieler":print" 
den letzten aylcen.en, und": print 
" konkursmeldungen.' 


ausserdem d 


onskarte ausspielen"rf$" je nach k 
arte" | 


moeglichkeiten, ": print”. 
ienkurse zu beeinflussen: R 
2898 print” De 


5)" "15914$068" der kurs Be od. 


er sinkt um" 
2988 print" 


trag." | 
2918 print: printweg” bel. 
der zu beeinflussende kurs" :print” 


kann ausgewaehlt werden. 
2920 printwe$" restl."c6$"alle u 
ebrigen aktienkurse": 


2930 printwe$" 2x 1/2"c6$"der ak 
tienkurs wird verdoppelt": PEENEIPS 


(9) oder halbiert." 


"Weß1S$14$" "chr$ti®. 
9) chr$( 118) 068” den angegebenen be... 


 )"allgemeine uebersicht"rf$" momen 
 <he> ; 
| betreffen 
1 <pk> 
2878 printc9$roß"f6"c6$spel 1)"akti 
gibt es verschiedene 


die akt 
»<ol> 


<ih> 


<ac>. 


IT er 
".<eh> : 
printspal9)"s. - 


:printsep 
<da> 


sep 


0m: :getkeyaß:fast 


er das spiel abge-":print" 


2948 printc9$ro$"f7"c7$spcel 1)"naec 


‚hster spieler"rf$" falls die aktio 
ns-":print" 
usgespielt ist," 
2950 print” | 
pieler an die": print” 


2968 scnclr: printc9$ro$" FB" oBgapcl 
1)"ganzes spiel beenden" rf$"” auch 
wenn nicht": print” alle vorgeseh 
enen aktionskarten aus-" | 

2978 print" gespielt sind, wird 
brochen. 
alle aktiendepots werden zum": pri 


nt". ‚laufenden kurs bewertet und 
der" | 
29808 a, . sieger wird ermittel 
te® 


‚2998 print:printlb$"drei wichtige 
vorkömmnisse:":print:print”1. stei 


gt ein aktienkurs ueber 188 dm":pr 


int" so wird die differenz zwisc 
hen dem" | 

3888 print" kurswert und 188 dm 
als "ro$"dividende"”:print"  ausbe 
zahlt. 


int" dm zurueck." 


3818 print"2. faellt hingegen ein 


kurs unter 18 dm," 
ren bei diesem "ro$"konkurs”rf$" d 
er":print" firma alle aktionaere 
die betreff-" | 
3828 print" enden aktien. sie be 
zahlen zudem pro":print" aktie 8 
dm. wer auch nach dem auto-" 
3830 print" matischen verkauf an 
derer aktien":print" 
omputer die OnULO.N OL SprinE 
begleichen kann, scheidet aus. 
38048 print"3. nach jeder runde (al 
le spieler je 1x)": print" werden 
die aktienkurse eventuell":print” 
durch eine meldung beeinflusst. 
:slow:getkeya$ | 
= fast:scnclr:print"zum ‚schluss 
noch eine einschraenkung:' 


:print" verlie 


u print:print"vor dem ausspiele 
:print. 
ander in der gleichen runde nic 


"ro$"ge"”rf$"kaufte aktien" 


he :prinerob ver” rPg"kouft werden 
(und umgekehrt) ..” 


3078 print: printci$"viel Einaek ı 


I":slow: BEFREYEE. goto2708 

38080 bend 

3898 window® ‚5, 39,7: senclr: print"w 
ieviele spieler wollen am spiel te 
il-":input"nehmen (2-6) ".8Z 

3100 if sz<2 or sz>6 then goto3098 


karte dieser rund a 
. <ak> 
Komat der naechste Biss 44 
‚reihe. :s]l. 


<dk> 


<1ld> 


<bc> 


<dh> 


<ed> 


der kurs faellt auf 188":pr 
<og> 


<na> 


 <no> _ 


durch den co 


<ai> 


<oi> 


<ld> 


<fo> 


 <mg> 
<gf> 


<ob> 


<jj> 


ame des”sp". 


3278 


3328 
3378 


3428 
3448 
Li DE 


3118 Merensilee 


mitepielers"; :input n 
a$lsp) 

3138 if len(na$(sp))<1 or len(na$( 
sp))>1® then goto3128:else nextsp 


3148 window®, 10,39, 12: scnclr:print. 


"wieviele Sktiongkärten. (=runden) 


soll":input" jeder bekommen a -9) " 
‚kz 


3188 if kz<2 or kz>9 then g0t03148 


3168 window®, 13,39, 16:sonelr:print 

"wieviele davon sollen am anfang z 

uge-":print"”deckt a 

str$(kz-1),1)") ";:inputvz 

3178 if v2<® or vz>kz- 1 then goto3 
168 

3188 deu 
"wie gross soll die haeufigkeit vo 

n":input”meldungen sein (B-100%) ” 
‘hm 

3198 if hm<® or hm>188 then goto31 

80 

3208 EEE EB IE 

=kz:dm( sp) =388: fornr=1Itokz:fi=int( 

rnd( 1)#5+1). 

3218 kKt=int(rnd( 1)#5+1) :ka$(sp,nr) 

Sright$( str$( fi), 1) +" ” 

32208 ka$(sp,nr)=left$(ka$(ep,nr), k 

t) :nextnr:forfi=1toS:mk( sp, fi)=1:m 


rn 

3238 
3248 
3258 
3260 


rem hilfsprogramme 
rem HHRRERBRSRIRSARSEIR 


rem kurse einzeichnen 

rem WHRRRRRRRRRRRRETE 

px=pk( 24*( fi-1) +2%*(inteklfi)/ 
18+1))-1) 


v(sp,fi)=@:nextfi:nextsp:slow:retu 


| <nr> 
3128 window®,8,39,9: scnolr: print" n 


<bn> 


<1p> 


<pi> 
<dce> 


<mh> 


<dd> . 


<fp> 


<hd> 


<md> 


<gd> 


<lo>. 
<cj> 
<nl> 
<od> 
<ai> 


<hk> 


3288 py=pk(24*(fi- 1 +2#linteklri)/ 


18+1))) 
3290 movsprfi,px,py: return 
33080 rem aus nummer wird firmenbuc 


hstaben 
2318. rem WERRRRRRIRIRIRIRIRIRIRIRISSHIRIEIESESESEN 


2.2.0202. 
fi=val(left6(kaflep,nr), 1)) 
if fi=1 then fi$="a" 

if fi=2 then fi$="b" 

if fi=3 then fi$="o" 

if fi=4 then fi$="d" 

if fi=5 then fi$="e" 

return 

rem aus buchstabe wird zahl 
rem HHRRRRRRREIRRIESESESEIESEIEIE REIFEN 
if fi$="a" then fi=il 

if fi$="b" then fi=2 

if fi$="o" then fi=3 

if fi$="d" then fi=4 


3338 
3348 
3358 
3368 


3388 
3390 
3488 
3418 


3438 


<ip> 
<ak> 


<id> 


<ie> 
<mp> 
<bb> 
<nn> 


<jp> 


<fe> 
<cd> 
<ba> 
<ok> 


| mg> 


<jo>. 
<ct> 
<jm> 


 <ci> 


3450 if fi$="e" then fi-5 

3468 return 

3478 rem derstellung von betraegen 
3480 rem HRRRRRRRRRRRRRSESRSESRSESHEI 
3498 dm$( sp) =str$(dm( sp)): dm$( sp) = 
"+dm$( sp): dm$( sp) =right 
‚$Cdm$C sp), 8) 


3588 kb$=str$(kb): kb$=" Be 


+tkb$:kb$=right$[kb$,8): rem kaufbet 


rög/wert | 
3518 Phö=strftrklirkger Ge 
+trk$:rk$=right$(rk$,8):rem restkap 
ital/gesamtkapital 

3528 vb$=str$( vb) :vb$="- = 


+vb$:vb$=right$( vb$,8):rem vorhand 
ener betrag/aktienwert 

3538 an$=str$(an) :ang=" zu; 
+tan$:an$=right$(an$,8) :rem anzahl 
3548 return 

3558 rem hilfen 

3568 rem #Ht##4# 


hi) 
3588 sleep 2:scnclr:return 
3598 rem kontrolle 

3600 rem HRRRHRREH 


3618 fe=d:if fg$=fi$ then char, 1,2 


'4,"firmenkurs durch karte veraende 


rt!":sleep3:fe=1 
3628 if fg$<>"a" and fg$<>"b" and 
fg$<>"c " and Fg$<>"d" and fg$<>"e ” 
then char, 1,24,hi$(4):sleep3:fe= 1 
3630 return 
3648 rem initialisierung und titel 
3650 rem HRRRRRRRRRRRRRRRRRRRRRRTE 
3668 fast:scnclr 

3678 ro$=chr$( 18) :rf$=chr$( 146) :11 
$=chr$( 111) :12$=chr$( 183) :13$=chr$ 
(112) :14$=chr$( 188) :15$=chr$( 170): 
16$= =chr$( 188): 17$=chr$( 175): 18$= ch 
r$( 186) :un$=chr$({ 163) 

3688 c1$=chr$( 158) :c2$=chr$( 159) :c 
3$=chr$( 28) :c4$=chr$( 156) :c5$=chr$ 
(129) :c6$=chr$( 149) :c7$=chr$( 38) : Ce 


8$=chr$( 31) :c9$=chr$( 155) :we$= chr$ 


(5) :1b$=chr$( 154) 

3698 key1,"1":key2,"2":key3, "ae, ke 
y4,"4":key5,"5":key6,"6":key?,"7": 
key8,"8" | 

3708 dim z$(58),po( 12), Pk( 128), pw( 
18) ,ka$(6,9), hi$( 12), f( 50) ‚m$(12), 
m( 2,12) 

3718 rem farben der firmen 

2928 rem HRRRRRRRRRRRIEE 

3738 co( 1)=8:co(2)=6: co(3) = 3: co(4) 
=5:c0(5)=15:rem color 

3748 fal1)=-158:fal2)=30 fal3)=28 f 
a(4)=156:fa(5)=154:fa(l6)=-155:rem c 


3578 window1,21,38,22:printib$hi$l 


<hi> 


<lb> 


<ct> 
<kh> 


<pm> 


<fg> 


<di> 


<lp> 


<cn> 
<fb> 


<gd> 


<nk> 


<bj> 


<pk> 


 <ak> 


<mb> 
<ck> 


<hk> 
<ag> 
<da> 
<hf> 
<ig> 


<hn> 


'hr$- -farben 


39759 fori=1t08S: KLA)=8B: nexti. 
3768 rem verschiedene hilfen 
37780 rem HRRRRRRRSRRSEISIEIESEIEIFE 


.3788 hi$( 1) ="gewuenschtes bitte au 


swaehlen!" 


3798 hi$(2)="karte dieser runde sc 


hon eingesetzt!" 


3898 hi$l3)="zuerst ihre ektionska 
rte setzen!" 


3818 hi$(4)="diese firma existiert. 


nicht!" 


3828 hi$(5) =" sie haben zuwenig Rap: 


ital!" 
3838 hi$(6)=-"diese sorte wurde ebe 


n verkauft!":me$(?7)="kauf erst nae 


chste runde moeglich!" 
3848 hi$(8)-"alles ok?" 
3850 hi$(9)="es sind zuwenig aktie 


n vorhanden!" 


3860 hi$( 10)="kein kauf: und verkau 


f von gleichen"”:hi$( 11)="aktien in 
derselben runde moeglich!" 

3870 gosub3958:rem titelbild 

3880 gosub4805B:rem spielfeld 


3890 forfi=1to8:gosub327@:nextfi:r 


em kurse einzeichnen 

3988 gosub4378:rem Kankendarsteiiu 

ng \ | 

3918 gosub4418:rem meldungen 

3928 return | 

3938 rem titelbild u 
3948 rem Fre 

3958 fast: BnepNZ eh 1: circle,6,6,6: 
paint,6,6 

3968 an ch$,®, 2, 23, 28: graephic® 
:color1,2:color®d, 1: color4, 1:graphi 

c1,1 

3970 restore4488: Fori=1to28: readkx 
‚kf:colori,kf: gshapech$,kx,d:nexti 


3980 restore450ß: fori= 1to1: readky 


‚kf:colori,kf: gshapech$, O,ky:nexti 


:fori= Ito1: readky,kf: color!, kf: gs 
‚hapech$, 384,ky:nexti 


3998 restore4490: fori=1t020: readkx 
‚kf:colori,kf:gshapech$,kx, 176:nex 
ti 


AB00 restore4520: fori=1t058: age 
 -{i):inexti:restore4538:fori=1t048:r 
.eadf(i):ifi/12= AED resto 


re4538 
aB1B nexti: Peadt(49), ft5B): slow 
4028 restore4548:fori=1t050:readx, 


<nh> 


y:colori,f(i):char,x,y,z$(i):sound 


1,180880,1:sound1!, 7888, 1:forj=1t070 
Inextj: nexti: getkeyaß: fast: return 


4838 rem spielfeld. 
40848 rem Fri 


4050 grophic!,1:fori=1to5:sprsavch 


$,i:spritei, B,co(i), 0,0,0,0: movspr 
i,8,8:nexti E Ä 


| 2060 draw, 17, ‚20t0308 ‚2010308, ‚158t0 


17, 150017, 28 
1078 draw, 17 ‚35t03808,35:draw, 17, 13 
... 5t0308, 135: draw, 17 ‚480308, a8: box, 
2,168, 308, 199 
| 4088 color ‚2:box, 12, 170, 25, 1897:bo 
x,85,178, 162, 187: box, 172, 178, 298, 1 
87 
4898 color! sine, 48,25:paint, 40 
‚145 | 


* 2108 color! eo: regrer sagen: fori=1to 


12:read z$(i): read po(i) 

4118 char,po(i),3 ‚2$(i): char,po(i) 
‚17,2$(i) :nexti 

2120 fori=1to11:read po(i): draw,po 

(i) ‚48topo(i),135:nexti 

4138 fori=1t05 :read poli): draw, 17 
‚po(i)to38®,po(i): nexti 

4148 char,2,1,"boersenspiel" 

4158 color! ‚8:char,®8,6,"a":colori, 

6:char,®,8, "pr; Solar ‚3: en 8,11, 

ren: oiorh ‚5: char, Bd, 13, "d": color, 

15:char,d, 15, "eo" 

4168 rem fen der kurschips 

4178 rem MRRRWRSRSRSRRRSRHRSRHREArarse sh 

4180 restore4610:fori=1t0128:read 

pk(i) :nexti:graphicd:return 

4198 rem kartenmaske 

4200 rem HRRRRRRRERERH 

4218 rem vorderseiten. 

4228 kK1$=we$+11$:Ffori=1t0o1B:K1$=Kk 

$+12$:nexti:kK1$=K1$+13$ 

4230 k2g=148+" "+chr$( fa(o)) +chr$( 

206) +chr$( 205) +" "+tegl1)+" "+we$t+ 

15$ | 

42408 

4$+" 

4250 

4268 


k3H=1A4$+" "tchr$( Falo))+1561 
"+te$( 2)+we$+15$ 


kK5$=14$+" "+chr$( Falu)) +15$+1 
4$+" "+te$( 3) +we$+15$ 

4278 kK6$=c9$+right$( str$(nr), 1)+" 

"+chr$( Falu)) +chr$( 189) +chr$( 110) + 
" "+te$(4)+" "+we$+15$ 

4280 K7$=16$:fori=1t010:K7$=K7$+17 
$:nexti:k7$= =k7$+18$ 

4298 k8$=chr$t 17) :fori= 1012: köS=k 
8$+chr$( 157) :nexti 

4308 koß=kI$+KBF+K2F+KBF+KIF+KBF+K 
 A$+KBS+KSF+KBF+KEF+KBF+K?E 

4318 rem rueckseiten _ 

4328 k9$=14$+05$:fori=1t010:K9$=K9 
$+chr$( 166) :nexti: ‚ka&=k9$+chr$(5) + 
15$ 

4338 N TTITERN IERNN 
96+KBS+KOF+KBF+CHFFrIght SL Str$(nr) 


gi> 


<pe> 


<fc> 


N 
<na> 


<od> 


<ke> 


<pn> 


<md> 
<pn> 


<pb>. 


<gk> 
<ed> 


<ej> 
<bf> 
<pn> 
<dg> 


<gd> 


<en> 


<ee> 
<ed> 


<bo> 


<ch> 
<cc> 
<ec> 
<fi> 


<hm> 


<ib> 


 elp:printerr$(fer)" error in 


ee 12) +Kaß+K78 
4348 return 


4358 rem kartendarstellung | 


4360 rem FRRRRRRRRRRRRTENTE 


4378 restore 4680 


4380 fori=1t018: readpw(i): nexti:re 
turn 

4398 rem eidungen 

4488 rem HHHttatıee 

4418 restore4718:fori=1to12:read m 
$(i),m(1,i) ,m(2,i) :nexti:return 

4428 rem fehlerbehandlung 

4430 rem HH 

4448 if er=-38 then resume 

4458 slow:window8,8,39,24:scnclr:h 

"el:en 

d 

4468 rem titelbild-datas 

4470 rem HBRRRRRBRRBIERSHRSEN 

4458 datoß,7,16,6,32,14,48,15,64,1 
6,88,2,96,8,112,9,128,3,144,5,16®, 

7,176,6,192,14,208,15,224,16,248,2 
‚256, B, 272, 9, 288, 3, 394, 5 

2498 dataß, 5,16, 3, 32,9,48,8,64,2, 8 

0,16,96,15, 112, 14, 128, 6, 144, 2, 160, 


_6,176,3,192,9,208,8,224,2,248, 16,2 


56,15,272,14,288,6,3804,7 

4508 data16,5,32,3,48,9,64,8,88,2, 

96, 16,112,15,128,14,144,6,168,7 

4510 data16,7,32,6,48,14,64,15,80, 

16,96,2,112,8, 128,9, 144,3,168,5 

4528 datab, 0, n 2; 
‚n,c,o ,p,u, t,e, 
‚0,),8,t,8,p,h,8, 
‚9,8,? 

4530 data2,8,9,3,5,7,6,14,15,16,12 
‚ 

4548 data13,9,14,9,15, g, 16,9,17,9, 


5, r ‚n 8.13 
r,v ara, 
n,s,c,h,a,e,1l,i,1 


18,9,19,9, 28, 9, 21, 9, 22, g, 23, 9, 24, 9 


‚10,14,11,14,13, 18,14,14,15, 14,16, 
14,17,14, 18, 14,19, 14, 28, 14,21,14, 2 
2, 14, 23, 14, 24, 14, 25, 14 
A558 data26,14,29,14,7 ‚18,8,18,9,1 


<cf> 


<ih> 


<ib> 


<el> 


<kf> 


<je> 


<po> 


8,11,18,12,18,13,18,14,18,15,18,16 


‚18,17,18,19,18,208,18,219,18,22,18, 
3, 18, 24, 18, 25, 18, 27, 18, 28, 18, 29, | 
8, 38, 18 
4568 rem ER CERIER 
4579 rem Het 
45808 data 0,3,18,5,20,8,30,11,48,1 
4,50,17,68,20,708,23,80,26,98,29,18 
D,32,*# ‚36 
4590 data 35,58,82, ‚106, 138, 154,178 

‚202,226,258, 283 
A680 data 59,78,97, 116,135 
4610 data 44,94,64,94,89,94,112,94 
‚137,94,161,94,184,94,208,94,232,9 


4,256,94,285,94,309, 94 


<kk> 
<nf> 
<fn> 


<pn> 
<ff> 


ng> 


<ek> 


ia 


Nr. 4 


ÖS 124 
DM 14,80 
SFR 14,80 


Wenn Sie mehr als 
nur TEL EEE wollen 


4628 data 44,113,64,113,89,113,112 
‚113,137,113, 161,113, 184, 113,208, 1 


1 13,232, 113,256, 113,285, 113,389, 113 
4638 data 44,132,64, 132,89, 132,112 


‚132,139, 132, 161, ‚132, 184, 132, 288, 1 


| 32, 232, 132, 256, 132, 285, 132, 389, 132 
4640 data 24, 151 ‚64, 151 ‚89,151,112 
‚151,137, 151,161, 151, 184, 151 ‚208, I 
51 ‚232, 151 ‚256, 151 ‚285, 151 ‚309, 151 
4658 data 4, 178, 64, 178, 89, 178,112 


‚178,137,198,161, 178, 184, 178, 288, L 


7, 232, 178, 256, 178, 285, 170 ‚389, 170 


4660 rem kortendaratellöng 


4678 rem HBRRRRRRRRRESSRSREE 


4680 data 1,0,14,0,27,0,1,8,14,8,2 
7,8,1,16,14,16,27,16 

4690 Een meidungen | 

4700 rem HHRHERRHRRR 


4710 Beke forschingapräsekt area 


| reich abge- schlossen", 1,4 
4728 data"auftragsbestand Fler neu 


es jahr ge- sichert",1,2 
4738 data”"wegen schlechtem geschae 


| stegang wieder 50B arbeiter entla 


ssen",-2,-4 


4748 data"export ins ausland letzt 


es jahr leicht zurueckgegangen",® 
u 
4758 data"allgemeine konjunkturerh 


1 olung"”,®,2 


4760 data"konjunkturflaute bahnt s 
ich an",®,-2 


4778 ee fuer 
‘unternehmer"”, 1,2 


4780 data"steuerbelastung. fuer unt 


ernehmer groesser geworden" 
0,-2 | 


4798 data"erdoelpreise sinken weit 


' erhin",®,4 


4808 data"erdoelpreise sprunghaft. 
angestiegen"”,®d,-3 


4818 data"schwache dm beguenstigt 


exporte",®,2 


‘48208 datorstarke dm schadet der ex 


portwirtschaft", B,-2. 


48380 rem ELRUER SR IBM Ai 


Unsere Hotline: - 


Jeden 


<he> 


Zn 


<ih> 


<hp> 


<eh> 


<pf> 


<hl> 


<gp> 
<nh> 


<ph> 


<ijn> 
<ge> 


<cc> 


<gf> 


.<co> 


<dn> 


<kf> 


<bd> 


 <hb> 


<hy> 


<hzj> 
<da> 


Mittwoch 15-19% | 


Telefon 


0891298013 


| Bee wu a 128 


Jetzt perfekt: 


Unser Checksummer | 


Hatte bisher unser 
Checksummer an Buch- 
stabenvertauschungen 
nichts auszusetzen, so 


zeigt er sich nun nicht 


mehr so kulant. 

Ob Sie mit der alten 
Version nun eingegeben 
hatten: 


10 print”ab” 
oder | 
10 print “ba”, 


der Checksummer 
brachte in beiden Fällen 
die Prüfsumme < gk >. 
Leicht kann es vorkom- 


men, daß beim schnel- 
len Tippen, besonders. 
im Zehnfingersystem, 


die Taste, die eigentlich 
erst als übernächste dran- 
kommen sollte, ein wenig 
zu früh erwischt wird. 
Dem Checksummer, der 


lediglich die ASCII-Werte 


der Buchstaben addierte, 
konnte dieses natürlich 
nicht auffallen. Was also 
tun? Ob etwas früher oder 
später addiert wird, än- 
dert nichts am Resultat 
der Summe. Anders ist 
es, wenn man zwei Ver- 
knüpfungsarten kombi- 
niert. So ist z.B. 2*30+40 
etwas anderes als 2*40+ 
30. Und genau dieses war 
dann die Lösung. Die 
Summe wird nun einfach 
durch eine Linksver- 
‘schiebung vor jeder Addi- 
tion verdoppelt. Da- 


: durch, daß im Falle, 


wenn das Ergebnis größer 
als 255 ist, der dabei ent- 
stehende Übertrag als 


Wert 1 zusätzlich addiert 
verflüchtigen die 


wird, 
| Werte der am Anfang der 
Zeile gefundenen Codes 


sich nicht nach 8 weite- 


ren Zeichen. Damit bleibt 
nicht nur die Aussage- 


kraft der Prüfsumme vol 


erhalten, sondern erfär ° 


forderlich, 


einzutippen._ Alles, 


sogar eine erhebliche 
Steigerung. Und vor allen 


Dingen wird nur eine. 


klitzekleine Änderung er- 
die dieses zu 
vollbringen in der Lage 


ist. Ein einziges Byte ist 


nur zu ändern. Wir tun 


dieses mit “poke 345,10” 


in.der Zeile 470. Dadurch 
wird das hier ursprünglich 
ansässige CLC (Clear Car- 
ry) durch ASL (Arithme- 
tik Shift Left) ersetzt. 
Die nachfolgende Addi- 


_ tion mit ADC (Addiere 
mit Carry) addiert den . 


ASCII-Code des gefunde- 
nen Zeichens und den 
nach links herausgeshifte- 


ten Übertrag. Da einige 


unserer Leser beklagten, 
daß das Checksummer- 
ısting nachher noch im 


Programmspeicher stehen. 


würde, haben wir diesem 
noch mit einem “new” 
abgeholfen. New bzw. 
neu ist nun folgendes. 


10 print“ab” ergibt die 
Prüfsumme<jd> | 
10 print”ba” die Prüf- 


‚summe<jf> 


Sie brauchen 
Checksummer nicht neu 
was 
Sie tun müssen, ist, die 
Zeile 470 anzufügen. An 
der Bedienung des Check- 
summers hat sich nichts 
geändert. Die Eingabehin- 
weise bleiben daher wie 
gehabt. 


EINGABEHINWEISE 


Am rechten Rand jedes 
Listings, jeweils am Ende 
einer Eingabezeile, finden 
Sie zwei Buchstaben zwi- 


schen einem Kleiner- und 
einem Größerzeichen ein-: 


geschlossen. Diese dürfen 
Sie nicht mit in Ihr 


den | 


Listing eintippen, son- 
dern sie dienen Ihnen zur 
Überprüfung Ihrer Ein- 
gabe. | 


am rechten Rand be- 
finden sich zwei Buch- 
staben. Mit einem speziel- 


len Programm können Sie 


beim Eintippen Ihre Ein- 
gabe auf ihre Richtigkeit 
überprüfen. Dieses Pro- 
esramm, der Checksum- 
mer, sorgt nämlich dafür, 


daß nach erfolgter Zeilen- 


eingabe am linken oberen 
Bildschirmeck zwei Buch- 


ERST SICHERN, DANN 
AUSPROBIEREN 


staben ausgegeben wer- 
den. Wenn diese Buch- 


staben nicht mit den vor-' 


her erwähnten Buchsta- 
ben in unserem Listing 
übereinstimmen, so kön- 
nen- Sie davon ausgehen, 
daß Sie .sich vertippt 
haben und können sich 
so die Zeile nochmals 
näher ansehen, ob Sie 
Ihren Eingabefehler fin- 
den. Wenn Sie dann alles 
richtig getippt haben, so 
stimmen die Buchstaben 
überein und Sie können 
sich getrost der nächsten 
Zeile zuwenden. 

Das 


Prüfsummen. Seien Sie 


- deshalb besonders auf- 


merksam, daß alles pafst 
und. speichern Sie dieses 
Programra unbedingt ab, 
bevor Sie es starten! Bei 
einem Tippfehler. würde 
es sich wahrscheinlich auf 
Nimmerwiedersehen ver- 
abschieden und Sie müß- 
ten die ganze Arbeit ver- 
mutlich nochmals ma- 
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Zwischen dem Kleiner- 
und dem Größserzeichen 


Checksummer-. 


- paar 
listing hat noch keine 2 


SERVICE 


chen. Wenn Sie es gestar- 
tet haben, so geschieht. 
nichts Besonderes. Der 
Computer meldet 
einfach kurz darauf mit 


„READY’”, und das war 


auch schon alles. Alles 
sollte nun wie immer 
funktionieren, mit der 


kleinen Ausnahme, daß 


nunmehr nach jeder Ein- 


gabe im Direktmodus 
eine Prüfsumme erscheint. 
Nehmen Sie zum Testen 
irgendeine kurze BASIC- 


 zeile aus unserem Heft 


her und testen sie aus. 


. Wenn die Summen über- 


einstimmen, so können 
Sie sich freuen, denn 
Fehler beim Abtippen 
werden Ihnen nun in Zu- 
kunft viel weniger passie- 


ren, als vorher. 


EINER FÜR ALLE, EIN 
ECHTES UNIVERSAL- 
PROGRAMM 


Unseren. Checksummer 
können Sie verwenden, 
ob Sie einen C16/116/ 
Plus4 oder ob Sie einen 
C64 .oder gar einen C128 
haben. Nur müssen Sie 
beim letzteren beachten, 
ob Sie auch wirklich im 
40-Zeichenmodus sind. 
Nachdem Sie den Check- 
summer geladen und ge- 
startet haben, können Sie 
Ihr S?usichrgramm ein-. 
geben wie gewohnt, Sie 
können es abspeichern, 
Sie können auch laden, 
Sie können Kürzel ver- 
wenden und ob Sie ein 
Leerzeichen mehr 
oder weniger verwenden, 
der Checksummer läßt 


‘sich dadurch nicht aus 


der Fassung bringen. Ein 
bißchen Vorsicht sollte 
man allerdings walten 
lassen, wenn man Pro- 
gramme eingetippt hat, 
in denen Peeks und Pokes 
vorkommen. Es wird 
zwar nicht besonders 


‚häufig vorkommen, aber 
es könnte bisweilen ge- 


sich - 
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=c16 c64 c128== 
(p) 85/8? commodore welt == 


 =checksummer= 
(ec) alfons ietemeycr .. 


c64 | | == 
c128 (48-zeichen) E> == 
rem --------------------------- 
rem 
rem -------------- - --- - - - -- - --- 
data165,859,072,165,060,872,832 
data®86, 137,184, 133,869, 104,133 
data959, 152,072, 160,000, 165,020 
dataß24, 181,021, 170,024, 144,011 
data291,032,240,086, 138,024, 113 


 data859,234, 170,200, 177,059,234 


data2808,248,169,031,872, 138,874 
data874,074,074,072,138,041,815 
data872,169,031,072,162,003, 194 


 data924,105,129, 157,08D, viı2, 282 
dataB16, 246, 184,168,096 
.1t= peek( 772) :ht- =peek( 773) 


fori=-312t0386:readx:pokei,x:nex 


iflt<>124then35® 
rem 


rem 


fori=312t0317:pokei ,‚234:next 


fori=321t0326:pokei,234:next 


'398 


458 


C16/116/plusa | -= 


318 fori= 1t06: readad: readx:pokead, x 


next 


320 poke388, 4: Poke319, lt: poke328, ht 


:goto438 
338 
348 
358 
368 
378 
380 


data351, 
rem 


rem 


408 
418 
428 
4308 
448 rem 
468 
478 
488 
498. 
5808 
518 
528 
538 
548 


schehen, 


rem 


dais nach dem 


Laufenlassen eines Pro- 


grammes weder der 
Checksummer noch sonst 
etwas mehr funktioniert, 
auch wenn dies bisher 
ohne Checksummer nicht 
der Fall gewesen sein 
sollte. Also bitte sichern 
Sie in jedem Falle Ihre 


Programme, bevor Sie sie 


ausprobieren. 

Ein paar Dinge sollten 
Sie noch wissen. Wir 
drucken in unseren Li- 


stings des öfteren Punkte 


data346, 121 ‚347, 898 
185,352, 
iflt<>13thena38 


— | {nn m mn m m un 


rem ========== 
= fuer hefte cw 7/87 bis = 
cw 9/37 sowie cw128 5/87= 
und c1i6 6/87 ist die 

poke-anweisung in zeile = 
478 wegzulassen Be = 


geprüft 
wieder die Punkte durch. 


C 64/128: 
Hotline 
Jeden Mittwoch 


‚348,082 


020,353, 882 


restore418:poke332,22 
poke335,23:goto31® 
data313,80861,316,9062,323,0862 
data326 ‚061,349 
poke772,856:poke 773,1. 


‚061,352.061 


ED in (EEE SM EHE <UMEED Amin UMEEn Gimme <Piie MEES SEM EREh SEA GEM CUiEES damen 


wire mm um dm en Ciume duim aim Er äh in ME CE Mei TEmn ein (ame. 


D Up um mm in in En <EEn im mE" ED (Emm ‚di arm Cum wmiin En 
WE U EEE idR mei mb, AM die CEmmin eUänE> AU SUMMEN GEM mim wma ante 


statt ee seiähen. Wenn 
Ihnen nun aber | 
zeichen besser gefallen, 


so liefert der Checksum- 


mer natürlich eine falsche 
Summe. Wenn Sie diese 
auf Richtigkeit überprü- 


fen wollen, so können Sie 


dies tun, indem Sie sie 
zuerst einmal so wie im 
Heft abtippen, und nach- 
her, nachdem Sie sie nach- 
haben, einfach 


Leerzeichen ersetzen. 
E 4A. Mittelmeyer 


% 


15-19° 
Telefon 
O89N1298013 
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EINGABE-HILFE FÜR MASCHINENPROGRAMME 


Checkmon 128 


Dieses superkurze Programm ermöglicht es Ihnen, 
sogenannte Hex-Dump-Listings im MONITOR-Modus 
einzugeben und die eingetippten Zeilen auch gleich 
per eingeblendeter Checksumme zu überprüfen. 


War ein Listing noch so lang, die Tipparbeit noch so 
schweißtreibend: Wenn das abgetippte Programm feh- 
lerfrei läuft, sind alle Mühen vergessen. 

Das haben Sie mit unserem hinlänglich bekannten 
Checksummer für BASIC-Listings sicher schon selbst 
erlebt. 

Bei den sogenannten Hex-Dump-Listings, die Sie nach 
Aufruf der Anweisung MONITOR in den C128 einge- 
geben haben, gibt es im Normalfall keine Fehlermel- 
dung, etwa SYNTAX ERROR IN 10. Meistens verab- 
schiedet sich das Programm auf Nimmerwiedersehen. 
Auch wissen Sie nicht, ob das Programm nach dem 
Absturz und einem Betätigen des RESET-Knopfes 
noch intakt ist. Daher bleibt Ihnen nichts anderes üb- 
rig, als es zur Fehlersuche erneut zu laden. Erneuter 
Frust ist also vorprogrammiert. Was nottut, ist eine 
Eingabehilfe auch für Maschinenprogramme, eben die- 
se Hex-Dump-Listings. 


CHECKMON UND TEDMON 


Tippen Sie zunächst das BASIC-Laderprogramm 
CHECKMON.128 mit Hilfe des Checksummers ab, 
speichern Sie es und starten Sie es mit RUN. Verset- 
zen Sie dann den C128 in den MONITOR-Modus, ent- 
weder mit der F8-Taste oder durch Eingabe von 
MONITOR <RETURN?>. 

Sehen Sie sich jetzt beispielsweise den Speicherbe- 
reich ab Adresse $1000 mit M 1300 <RETURN> an. 
Sie bemerken bestimmt den Unterschied zum norma- 
len Aussehen des Bildschirms: Rechts neben dem 
Doppelpunkt hinter den acht Hexadezimal-Bytes fin- 
den Sie nicht die gewohnte ASCII-Darstellung des 
Speicherinhalts, sondern eine in Spitzklammern einge- 
kleidete Prüfsumme, wie Sie sie in ähnlicher Form 
schon von unserem Checksummer her kennen. An- 
dern Sie ein paar Speicherinhalte, indem Sie die ange- 
zeigten Hexzahlen durch andere, beliebige, überschrei- 
ben — und schon ändert sich auch die Prüfsumme. 


DAS >-ZEICHEN 


Das wichtigste Zeichen zur Eingabe von Hex-Dump- 


Zeilen ist die Spitzklammer nach rechts. Damit weiß 
der C128, daß nun nach der ebenfalls einzugebenden 
Adresse eine aneinandergereihte Eingabe von acht 
Hexadezimalwerten kommen muß, durch Leerzei- 
chen getrennt. Verfahren Sie exakt so, wie Sie es bei 
. Hex-Dump-Listing in diesem Heft abgedruckt 
sehen. 

Nach Drücken der RETURN-Taste, also bei Übernah- 
me dieser Maschinencode-Zeile, erscheint die Check- 
summe am Ende der eingetippten Zeile. Vergleichen 
Sie sie mit der im Heft. Müssen Sie verbessern, so fah- 
ren Sie mit dem Cursor wieder in diese Zeile hoch, 
ändern Sie die falschgeschriebenen Bytes und drücken 
erneut <RETURN>. 

Ist jetzt alles in Ordnung, so beginnen Sie mit der FEin- 
gabe der nächsten Listingszeile wie gehabt. 

Haben Sie alle Zeilen eines Hex-Dump-Listings fehler- 


frei eingegeben, so dürfen Sie sicher sein, dafS Sie das 
Programm so übernommen haben, wie es im Heft ab- 


gedruckt war. 


SPEICHERN UND LADEN 


Zum Abspeichern eines solchen Maschinen-Programms 
aus dem MONITOR-Modus heraus, benützen Sie die 
im Handbuch genannte Befehlseingabe: 


S *(Prg.Name)‘“ 08 Anfangsadresse Endadresse + 1 


Den genauen Wortlaut finden Sie bei jeder Programm- 
beschreibung zu unseren Hex-Dump-Listings. 

Wollen Sie ein Maschinensprache-Listing nicht auf ein- 
mal eingeben, so können Sie jederzeit bis zur aktuell 
eingegebenen Speicheradresse mit S speichern und 

das nächste Mal zum Weiterarbeiten mit einer ande- 
ren MONITOR-Anweisung wieder laden: 


L “(Prg.Name)“ 08 


Am besten, Sie kreuzen sich im Listing aus dem Heft 
an, ab welcher Stelle oder Speicheradresse Sie Ihre 
weiteren Eingaben machen müssen. 
Last not least: Es kann nie schaden, sich zu diesem 
Thema den Abschnitt C des Handbuches zum C128 
über den eingebauten Maschinensprache-Monitor 
TEDMON durchzulesen. 

Alfons Mittelmeyer/hb U 


40 rem checkmon =========-==-====198 <oj> 
5ß rem (c) cw 128 spezial === c00> 
BU rem ====---.---.-.==2=2===-S=eennseemee cnk> 
78 rem by alfons mittelmeyer === CBD? 
88 rem c128 z== <g]> 
Jd rem ==r==e---.- ee nnennennneeen (ig> 
188 fori=312t0398:reada:pokei,a:ne 
xt <hc> 
118 fori=1tod:reada:readb:pokea,b: 
next:new <ef> 
138 data 132,255,108,251,8, 132,251 
‚164 <co> 
140 data 255,76,121,239,2801,62,208 
‚249 <dc> 
148 data 165,182,18,101,1803,160,9, 
10 <pk> 
1580 data 113,102,136,16,259,133,25 
3,169 <pi> 
158 data 380,133,254,169,62,160,97, 
208 <ge> 
168 data 220,198,254,2808,218,160,1 
05,208 <lk> 
168 data 212,201,13,240,4,164,255, 
24 <he> 
170 data 96, 169,68,160,68,32,61,1 <gl> 
178 data 165,253,32,194,184,169,62 
‚168 <me> 
1808 data 5,208,2,169,32,32,121,239 <kb> 


188 data 136,208,248,169, 13,208, 17 
6 <bi> 
190 data251,68,252,1,806,56,807, 1 
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